Question

дана сторона квадрата a найти его периметр p= 4* a, a=1.00,p=4.00

Answer 1

Var
a,p:real;
begin
readln(a);
p:=a*4;
writeln(p);
end.