Система уравнений с использованием операторов цикла (счётчк, предусловие, постусловие) - Turbo Pascal

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

Здравствуйте. Нужно программно решить систему с использованием трёх видов операторов цикла (счётчик, постусловие, предусловие). + Блок схема (с ней, скорее всего, я и сам справлюсь.) Благодарен за любую помощь.

Решение задачи: «Система уравнений с использованием операторов цикла (счётчк, предусловие, постусловие)»

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

const dx=0.3;
      z=1.7;
      eps=0.0000001;
var
  t,x:real;
begin
  x:=0.0;
  repeat
    if x>1.2+eps then t:=0.5*sin(x)+2*cos(x) else
    if x<1.2-eps then t:=sin(x)-2*z else t:=z*x-cos(x);
    writeln(x:8:2,t:10:6);
    x:=x+dx;
  until x>1.6;
  readln;
end.

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

const dx=0.3; — задаётся значение константы dx
const z=1.7; — задаётся значение константы z
const eps=0.0000001; — задаётся значение константы eps
var t,x:real; — объявляются переменные типа real для t и x
x:=0.0; — инициализируется начальное значение переменной x
repeat — начинается цикл повторений
if x>1.2+eps then — проверяется условие, если x больше 1.2+eps
t:=0.5sin(x)+2cos(x) — вычисляется значение t
else if x<1.2-eps then — проверяется условие, если x меньше 1.2-eps
t:=sin(x)-2*z — вычисляется значение t
else t:=z*x-cos(x) — вычисляется значение t
writeln(x:8:2,t:10:6); — записывается значение x и t в файл
x:=x+dx; — увеличивается значение переменной x на dx
until x>1.6; — выполняется до тех пор, пока x не станет больше 1.6
readln; — считывается команда для завершения работы программы
end.