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

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