Program kvadrat-

Uses crt-

Var a,P :integer-

Begin

Clrscr-

Writeln(‘введите cторону квадрата а‘)- readln(a)-

P:=4*a-

Writeln(‘Периметр равен: ‘,P)-

readln-

End.