Question

Дана сторона квадрата а Найти его площадь S=a^2

Answer 1

Var a,s: integer;
begin
Read (a)
s:=a*a
Writeln(s)
end.