program menghitung angka kuadrat | pascal

program menghitung_kuadrat;
uses crt;
var
    x,y : integer;
begin
    clrscr;
    write('masukkan angka= ');
    readln(x);     y:=sqr(x);
    writeln('Hasil kuadrat diatas= ',y);
    readln;
end.