Написать программу которая определяет сторону и площадь квадрата если известна диагональ . на паскале !

Program square;
var d, a, S: real;
begin
writeln('Введите длину диагонали:');
readln(d);
a:= d*sqrt(2)/2;
S:= sqr(a);
writeln('Сторона = ', a:0:3, '. Площадь = ', S:0:3, '.');
end.