Составить программу на языке паскаль (найти сторону ромба если известна диагональ)

Предыдущий
вопрос Следующий
вопрос

program rhombusSide;

var
diagonal, side: real;

begin
write('Enter the length of the diagonal of the rhombus: ');
readln(diagonal);

side := sqrt((diagonal / 2) (diagonal / 2) + (diagonal / 2) (diagonal / 2));

writeln('The length of the side of the rhombus is: ', side:0:2);
end.