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

vara,p: real;beginwriteln ('введи длину стороны квадрата');read (a);p:=a+a+a+a;writeln ('периметр квадрата равен',p);end.