program PerimetrKv;
var a,P: integer;
begin
writeln('Vvedite dlinu storoni kvadrata');
readln(a);
P:=4*a;
writeln('Perimetr kvadrata P= ', P);
readln(P);
end.