Даны 6 чисел. найти максимальное четное число. написать программу с помощью Pascal и...

Question

Даны 6 чисел. найти максимальное четное число.

написать программу с помощью Pascal и используя цикл repeat....until

помогите, пожалуйста!

Answer 1

var
  a, max, i: integer;
begin
  repeat
    readln(a);
    if(a > max) and (a mod 2 = 0) then max := a;
    inc(i);
  until(i = 6);
  writeln('Макс. четное число: ', max);
end.