Решить квадратное уравнение через паскаль

uses crt;

var n, st:integer;

begin

writeln ('Напишите число которое нужно возвести в квадрат'); Readln (n);

st:=sqr (n);

writeln (st);

end.

Примечание: Uses crt; пишем если работаем на ABC Pascal