Дана сторона квадрата а. Найти его периметр Р=4*а

program pr1;

var 

P,a :integer

begin

a:=2;

P=4*a;

writeln(P);

end.

program Pi;

var 

P,a :integer

begin

ReadLn(a);

P=4*a;

writeln(P);

end.

program perimetr_kv;

  var  a,p :real; {возможно, тип и integer, из данного условия неясно}

begin

 write('a='); readln(a);

 p:=4*a;

 writeln('P=',p);

end.