Вычислить площадь равнобедренного прямоугольного треугольника, если дана длина его гипотенузы d - Pascal ABC

Формулировка задачи:

Вычислить площадь равнобедренного прямоугольного треугольника, если дана длина его гипотенузы d. Входные данные: Во входном потоке в первой строке дано вещественное число d. Выходные данные: В выходной поток вывести единственное вещественное число с точностью три знака после запятой. Пример входного файла (input.txt): 3 Пример выходного файла (output.txt): 2.250

var
s,d:real;
begin
read(d);
s:=((d^2)/4);
writeln(s:0:3);
end.

Решение задачи: «Вычислить площадь равнобедренного прямоугольного треугольника, если дана длина его гипотенузы d»

Листинг программы

s:=sqr(d)/4;

Объяснение кода листинга программы

В первой строке кода переменной s присваивается значение площади равнобедренного прямоугольного треугольника, вычисленное по формуле sqr(d)/4, где d - длина гипотенузы треугольника. Функция sqr(x) возводит значение переменной x в квадрат.
Значение s сохраняется в переменной для последующего использования.