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