Помогите срочно Пожалуйста .Написать программу, используя ТРИ ВИДА ЦИКЛОВ (цикл с параметром, цикл с предусловием и цикл с постусловием) ИСХОДНАЯ ФОРМУЛА : Z=tg (t-cost) Значение аргумента : t=14; 15; 16; 17; 18; 19 Заранее спасибо

Program tg;var z:real;t:integer;begint:=14;for t:=14 to 19 dobeginz:=sin(t-cos(t))/cos(t-cos(t));writeln('z=', z);end;end.Program tg;var z:real;t:integer;begint:=14;while t<=19 dobeginz:=sin(t-cos(t))/cos(t-cos(t));writeln('z=', z);t:=t+1;end;end.Program tg;var z:real;t:integer;begint:=19;repeatz:=sin(t-cos(t))/cos(t-cos(t));writeln('z=', z);t:=t-1;until t=13;end.