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

uses crt;
var n,st:integer;
begin 
 writeln('Напишите число которое нужно возвести в квадрат');Readln(n);
st:=sqr(n);
  writeln(st);
end.

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