Var a,b: real; s: byte;
Begin
Writeln ('введите два числа');
Readln (a,b);
S:=0;
If (a mod 2)=1 then writeln (a,' - нечетное число') else s:=s+1;
If (b mod 2)=1 then writeln (b,' - нечетное число) else s:=s+1;
If s=2 then writeln ('оба числа четные')
End.