Question

Написать программу,которая будет вычислять периметр и площадь квадрата.Срочно ПЖ

Answer 1

var a: Real;
begin
writeln('Введите сторону a: ');
readln(a);
writeln('S=',a*a);
writeln('P=',4*a);
end.