дана сторона квадрата а, найдите площадь S= a2

var a:integer;
begin
 write('a= '); readln(a);
 writeln('Ploschad= ',sqr(a))
end.