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

program kvadratperimetr;
var a, P: real;
begin
    write('Введите a:');
    readln(a);
    P := 4 * a;
    write('P=', p);
end.