Что выдаст программа, если ввести следующие числа 4 12 14 15 24 program m1; var i,n,a,min:integer; begin readln(n); min:=30000; for i:=1 to n do begin readln(a); if (a mod 10 =4) and (a min:=a; end; writeln(min); end.
1234567890121314151617181920