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

var a:integer; x:real; (переменная a - это сторона квадрата; x - площадь)beginassign(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.