Как составить алгоритм в Pascal?

{ работает на PascalABC, в ТурбоПаскаль надо разремарить uses секцию, убрав // }

program ttt;

// uses Crt,Dos,Math;

var j,z,s,t : double;

i : integer;

begin

write('Введите начало отрезка поиска значений, не привышающее 123 : s =');readln(s);

write('Введите шаг итаррации:( можно вводить в диапазоне от 0.01 до ',((123-s)/2):8:2, ' ), t =');readln(t);

writeln('-------------------------------------------------------------');

z := s; i := 0;

while (z <= 123) do

begin

i := i+1;

j := cos(12.9 * sin(12.9 *(cos(z))));

if j < 0 then writeln (i:4,' Отрицательное значение функции j = ',j:10:4,' найдено при z = ',z:10:4);

z := z + t;

end

end.