Помогите решить! Дана сторона квадрата. Найти его периметр, площадь, длину диагонали.

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.