Помогите сделать описание

[галина01]

var
a,b,h,x,y:Real;
Begin
Write('Введите отрезок a,b=');
Read(a,b);
Write('Введите величину шага h=');
Read(h);
writeln(' x y ');
x:=a;
While x<=b do
begin
y:=cos(x)+cos(x)/sin(x);
writeln(x:4:2,' | ',y:4:2);
x:=x+h;
end;
Readln;
end.

И составить математическую модель к этой задаче

[Scorpius]

var a,b,h,x,y:Real;   // Объявление переменных

Begin
  Write('Введите отрезок a,b=');   // Просим ввести переменные a и b
  Read(a,b);   // Вводим переменные a и b
  Write('Введите величину шага h=');   // Просим ввести переменную h
  Read(h);   // Вводим переменную h
  writeln(' x y ');   // Вывод на экран с переводом строки
  x:=a;   // Присваиваем переменой x значение переменой a
  While x<=b do   // Цикл с предусловием, выполнения пока x<=b
  begin   // Начато тела цикла
    y:=cos(x)+cos(x)/sin(x);   // Вычисление y
    writeln(x:4:2,' | ',y:4:2);   // Вывод на экран значения x и y
    x:=x+h;   // К значению x прибавляем h
  end;   // Конец тела цикла
  Readln;   // Ожидание нажатия клавиши
end.