3) По каналу связи передается последовательность положительных целых чисел, все числа

program zadanie27; var M2, M5, M10, R, MAX, dat, res: longint; Zero: boolean; begin M2 := 0; M5 := 0; M10 := 0; MAX := 0; zero := false; while zero = false do begin readln(dat); if dat lt;gt; 0 then begin if ((dat mod 2) = 0) and ((dat mod 5) gt; 0) and (dat gt; M2) then M2 := dat; if ((dat mod 5) = 0) and ((dat mod 2) gt; 0) and (dat gt; M5) then M5 := dat; if (dat mod 10 = 0) and (dat gt; M10) then begin if M10 gt; MAX then MAX := M10;//если предыдушее число делится на 10 и больше наибольшего, оно становится наибольшим. M10 := dat; end else if dat gt; MAX then MAX := dat; end else zero := true; end; readln(R); if (M2 * M5 lt; M10 * MAX) then res := M10 * MAX else res := M2 * M5; sleep(100); writeln(Вычисленное контрольное значение: , res); if R = res then writeln(Контроль пройден) else writeln(Контроль не пройден); end.