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.