Дана сторона квадрата a. Найти его периметр P = 4·a. (программа Паскаль)

var
a, P: real; { a и P - вещественные }
begin
writeln('Введите сторону квадрата:');
write('a = ');
{ Водим сторону квадрата: }
readln(a);
{ Вычисляем периметр квадрата: }
P := 4 * a;
{ Выводим периметр с точностью 2 знака: }
writeln('Периметр квадрата: P = ', P:0:2);
readln
end.