Question

Написать программу поскаля, нахождение площади квадрата, значение сторон вводить с клавиатуры Помогите

Answer 1

var
a, b, s: integer;
begin
readln(a);
readln(b);
s := a*b;
println(s);
end.

Answer 2

var
a, b, s: integer;
begin
readln(a);
s := a*a;
println(s);
end.

Answer 3

квадрат!!!!