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

pascal

var a, p: real;

begin

Write('Введите значение стороны квадрата a: '); ReadLn(a);

p := 4 * a;

WriteLn('Периметр квадрата равен ', p:4:2);

end.