Var a, b: integer;begin writeln('Введите одно четное и одно нечетное числа'); readln(a, b); if a mod 2 = 0 then writeln(b,' - нечетное число') else writeln(a,' - нечетное число');end. Напишите, что делает эта программа.