С клавиатуры вводится 2 числа…

program test; var a, b: integer; begin write ('Enter A: '); readln (a); write ('Enter B: '); readln (b); if a mod 2 <> 0 then writeln (a, '+', b, '=', a+b) else writeln (a, '*', b, '=', a*b); readln; end.