Решить на языке паскаль с операторами цикла while и repeat: напечатать положительные значения y=sin x, если x=1, 2, . 40 , заранее .

var x,y:real;

begin

x:=1;

repeat

y:=sin(x);

if y>0 then writeln('x = ',x,' y = ',y:0:3);

x:=x+1

until x=11;

writeln;

x:=1;

while x<11 do

begin

y:=sin(x);

if y>0 then writeln('x = ',x,' y = ',y:0:3);

x:=x+1

end

end.