Составить и решить на ветвление и цикл

Var  n,otr,pol: real;   begin  read(n);   if n=0 writeln('error') else  repeat do  write(n);   if n mod 2=0 then pol: =pol+1 else otr: =otr+1; read(n);   until n=0;   writeln('otr: ',otr); writeln('otr: ',otr); end. 

Program z1; uses crt; var a, b, max, m, x: integer;     begin         write('введите а и б');         read(a,b);         if a> b then max: =a and m: =b                   else max: =b and m: =a;         x: =max-m;         writeln('модель суммы=', x); end.                    

Var a, b, c, n, i : integer;     s: array [1..30] of integer; begin     for i: =1 to 30 do          read (s[i]);     for i: =1 to 30 do          if s[i] div 1000 = 0 then a: =s[i];     if a=0 then write ('no') else          for i: =1 to 30 do            if (s[i] div 1000 = 0) and (a> s[i]) then a: =s[i];     write (a); end.