Question

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

Answer 1

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

Answer 2

или это: Var a: integer; begin Read(a) Writeln(a*a) end.