uses crt; var a,kare:integer; begin clrscr; writeln (!bir sayi girin de karesini alalım'); readln(a); kare:=a*a; writeln('sunuç=',kare); readln; end.