Составьте 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.