Помогите пожалуйста.Составьте 2 программы на языке Pascal,используя в одном случае оператор While,в др. случае Repeat.Вывести на печать положит. значения ф-ии y=sin(x)=cos(5x) для х, изменяющегося на отрезке {-5;5} с шагом 1,2.

1var x,y:real;beginwriteln('Положительные значения:');x:=-5; while x<=5 do  begin  y:=sin(x)+cos(5*x);  if y>0 then writeln(y);  x:=x+1.2;  end;end.2var x,y:real;beginwriteln('Положительные значения:');x:=-5; repeat  y:=sin(x)+cos(5*x);  if y>0 then writeln(y);  x:=x+1.2;  until x>5;end.