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

Question

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

Answer 1

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