По pascalabcnet! 6 класс написать нормальное решение. : даны три целых числа. если все числа четные, то вывести "ура". если только два четных, то вывести "уже хорошо". если только одно четное число, то вывести "не все так плохо", если четных чисел нет, то вывести "повезет в следующий раз".

Var a,b,c:integer;
begin;
readln(a);
readln(b);
readln(c);
if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) then writeln('Ура')
  else
   if ((a mod 2=0) and (b mod 2=0)) or ((a mod 2=0) and (c mod 2=0)) or ((b mod 2=0) and (c mod 2=0)) then writeln('Уже хорошо')
    else
     if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln('Не все так плохо')
      else
       writeln('Повезет в следующий раз');
end.