Составить программу на языке Паскаль. Дана сторона квадрата. Найти его площадь

Var a:integer; x:real; (переменная a - это сторона квадрата; x - площадь)

begin

assign (input,'input. txt'); reset (input);

assign (output,'output. txt'); rewrite (output);

read (a); (читаем входной файл)

x:=sqr (a); (находим площадь квадрата, т. е. возводим сторону в квадрат)

write (x:0:0); (выводим целый ответ)

close (input); close (output);

end.