var

a,p: real;

begin

writeln ('введи длину стороны квадрата');

read (a);

p:=a+a+a+a;

writeln ('периметр квадрата равен',p);

end.