Помогите решить! Дана сторона квадрата.Найти его периметр,площадь,длину диагонали.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.