Решить! дана сторона квадрата.найти его периметр,площадь,длину диагонали. s=a², p=4a, d=a√2

Var S, P, d, a : real;
begin
       write('Введите значение а: ');
       readln(a);
       S := a * a;
       P := 4 * a;
       d := a * sqrt(2);
       writeln('S = ', S, ', P = ', P, ', d = ', d:1:5); // последнее написано для вывода
                                                                   // 5 знаков после запятой 
end.