GİRDİĞİNİZ SAYININ KARESİNİ BULDURAN PROGRAM

uses  crt;
var
   a,karesi:longint;
begin
    clrscr;
    write('LšTFEN BIR  SAYI  GIRINIZ:');   readln(a);
    karesi:=a*a;
    write('GIRDIGINIZ  SAYININ KARESI:',karesi);
    readln;
end.