Крик о ! информатики, вы pascal abc вычислить функцию y=f(x) на отрезке [a, b] с шагом н. на каждом шаге выводить на печать значения переменных х и у. используйте цикл с предусловием и цикл с постусловием. вычисляемая функция y=0.5*x+sin^2(x) a=0 b=3п h=п/2 жду текст программы

Program abc; uses crt; var a,b,x,y,h: integer; begin  h: = п/2; a: =0; b: =3*п; x: =a; y: =0; {цикл с предусловием: } while x< =b do y: =0.5*x+sin^2(x); write(x,y); x: =x+h; {цикл с постусловием: } repeat y: =0.5*x+sin^2(x); write(x,y); x: =x+h; until x> (b+h); end.

Var a,b,c: integer; begin c: =365; read(a,b); if a> 1 then c: =c-31; if a=1 then c: =c-b; if a> 2 then c: =c-28; if a=2 then c: =c-b; if a> 3 then c: =c-31; if a=3 then c: =c-b; if a> 4 then c: =c-30; if a=4 then c: =c-b; if a> 5 then c: =c-31; if a=5 then c: =c-b; if a> 6 then c: =c-30; if a=6 then c: =c-b; if a> 7 then c: =c-31; if a=7 then c: =c-b; if a> 8 then c: =c-31; if a=8 then c: =c-b; if a> 9 then c: =c-30; if a=9 then c: =c-b; if a> 10 then c: =c-31; if a=10 then c: =c-b; if a> 11 then c: =c-30; if a=11 then c: =c-b; if a> 12 then c: =c-31; if a=12 then c: =c-b; write(c); end.

Var a,b,c,z: real;   begin    writeln('введите номер месяца и число');   readln(a,b);   if a=1 then a: =1  else if a=2 then a: =30  else if a=3 then a: =60   else if a=4 then a: =90  else if a=5 then a: =120   else if a=6 then a: =150   else if a=7 then a: =180   else if a=8 then a: =210   else if a=9 then a: =240   else if a=10 then a: =270   else if a=11 then a: =300   else if a=12 then a: =330;   if b> 30 then writeln('-1');   c: =a+b;   z: =365-c;   writeln('до нового года ещё ',z,'дней/я');   end.