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

Question

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

Answer 1

program pr1;

var 

P,a :integer

begin

a:=2;

P=4*a;

writeln(P);

end.

Answer 2

program Pi;

var 

P,a :integer

begin

ReadLn(a);

P=4*a;

writeln(P);

end.