С клавиатуры вводится 2 числа А и В. Если А-нечетное, то вычисляем А+В, иначе А*В. Результат вычисленный выводим на экран составить программу для паскаля

Предыдущий
вопрос Следующий
вопрос

Program CalculateAB;
var
A, B, result: integer;
begin
write('Введите число A: ');
readln(A);
write('Введите число B: ');
readln(B);

if A mod 2 <> 0 then
result := A + B
else
result := A * B;

writeln('Результат: ', result);
end.