Написать программу вычисления периметра квадрата , если известна длина его стороны.

var

a,p: real;

begin

writeln (введи длину стороны квадрата);

read (a);

p:=a+a+a+a;

writeln (периметр квадрата равен,p);

end.