var
a,p: real;
begin
writeln ('введи длину стороны квадрата');
read (a);
p:=a+a+a+a;
writeln ('периметр квадрата равен',p);
end.
var
a,p: real;
begin
writeln ('введи длину стороны квадрата');
read (a);
p:=a+a+a+a;
writeln ('периметр квадрата равен',p);
end.