Pasckal ! ) даны два трехзначных числа. вывести максимальные цифры в этих числах. 2) дана последовательность чисел 1,2,3,4,5,. найти все числа, которые делятся на 4,8,2

Var a,b,m1,m2: integer; begin write('a = '); read(a); write('b = '); read(b); a: =abs(a); b: =abs(b); m1: =a mod 10; a: =a div 10; if a mod 10 > m1 then m1: =a mod 10; a: = a div 10; if a mod 10 > m1 then m1: =a mod 10; m2: =b mod 10; b: =b div 10; if b mod 10 > m2 then m2: =b mod 10; a: = b div 10; if b mod 10 > m2 then m2: =b mod 10; writeln('максимальная цифра в a = ',m1); writeln('максимальная цифра в b = ',m2); end. var i: integer; begin write('кратные 4: '); for i: = 1 to 1000 do     if i mod 4 = 0 then write(i,' '); writeln; write('кратные 8: '); for i: = 1 to 1000 do     if i mod 8 = 0 then write(i,' '); writeln; write('кратные 2: '); for i: = 1 to 1000 do     if i mod 2 = 0 then write(i,' '); writeln; write('кратные 4,8,2: '); for i: = 1 to 1000 do     if i mod 8 = 0 then write(i,' '); writeln; end.

Uses crt; var   len, h : real;   day : integer;     begin  len : = 13;   h : = 1;   clrscr;       while len > 0 do begin     len : = len - h;     h : = h - h * 0.05;     day : = day + 1;   end;       write(day); end.