Помогите написать программы >< Задача 1: Среди целых чисел найти минимальное…

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.