program r1_31;
uses crt;
var a,p:real;
BEGIN
clrscr;
writeln('Введите сторону квадрата:');
readln(a);
p:=4*a;
writeln('периметр квадрата равен ',p:7:2);
readln;
End.