Вычислить значение выражения по заданной формуле - Turbo Pascal (29321)

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

Написать программу: Даны целое число n, действительные числа i,j,k вычислить:

Решение задачи: «Вычислить значение выражения по заданной формуле»

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

var i,k,j,a,r: real;
begin
readln(i, j, k);
if j=0 then  write('Значение r не определено')
else
 begin
  a:=k/j+1;
  if a=0 then write('Значение r не определено')
  else
   begin
    r:=sqr(cos(i*i+3))*cos(i*i+3)+sqr(sin(a)/cos(a))+756.3;
    writeln('r=',r:0:3);
   end;
 end;
readln
   
end.

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

Переменные i, j, k объявлены как real, что означает, что они могут хранить числовые значения с плавающей точкой.
Функция readln используется для чтения трех чисел от пользователя.
Затем проверяется, равно ли значение j нулю. Если это так, то выводится сообщение о том, что значение r не определено.
В противном случае выполняется следующая инструкция.
Значение переменной a присваивается значению переменной k, деленному на значение переменной j, плюс единица.
Затем проверяется, равно ли значение a нулю. Если это так, выводится сообщение о том, что значение r не определено.
Если значение a не равно нулю, выполняется следующая инструкция.
Значение переменной r присваивается квадрату значения функции cos, умноженному на значение функции cos, умноженное на i в степени 2, плюс квадрат значения функции sin, деленного на значение функции cos, плюс 756.3.
Выводится значение переменной r с точностью до трех знаков после запятой.
Выводится сообщение r=, за которым следует значение переменной r.
Программа завершается, ожидая ввода от пользователя.