Помогите написать программы больше меньше Задача 1: Среди целых чисел найти минимальное число, которое больше 20 и делится на 17. Задача 2: Найти максимальное натуральное число меньше 5000, которое делится нацело на 39. Зада...

var   i : integer; begin   i := 21;   while i mod 17 <> 0 do i := i + 1;   writeln (i); end.   var   i : integer; begin   i := 4999;   while i mod 39 <> 0 do i := i - 1;   writeln (i); end.   var   i : real;   c : integer; begin   c := 0;   i := 1000;   while i * 0.02 <= 30 do   begin     c := c + 1;     i := i * 1.02;   end;   writeln (c + 1); end.   var   i : real;   c : integer; begin   c := 0;   i := 1000;   while i <= 1200 do   begin     c := c + 1;     i := i * 1.02;   end;   writeln (c); end.