Дана сторона квадрата a. Отыскать его периметр P = 4a.

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