Составить программу вычисления периметра и площадь квадрата

Question

Составить программу вычисления периметра и площадь квадрата

Answer 1

Var
a:real;
begin
    readln(a);
       writeln('площадь: ',a*a);
       writeln('периметр: ', 4*a);
end.

Comments

спасибо)