Напишите программу на языке Паскаль, вычисляющую значение функции 5d, если d<5 A = 3d/(d+8), если d≥5

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

Программа на языке Паскаль:

program FunctionValue;
var
d: integer;
A: real;
begin
writeln('Введите значение переменной d:');
readln(d);
if d < 5 then
A := 5 * d
else
A := 3 * d / (d + 8);
writeln('Значение функции A = ', A);
end.

Эта программа считывает значение переменной d, затем вычисляет значение функции A в зависимости от значения переменной d и выводит его на экран.