program perimetr_kv;
var a,p :real; {возможно, тип и integer, из данного условия неясно}
begin
write('a='); readln(a);
p:=4*a;
writeln('P=',p);
end.
program perimetr_kv;
var a,p :real; {возможно, тип и integer, из данного условия неясно}
begin
write('a='); readln(a);
p:=4*a;
writeln('P=',p);
end.