Вводятся два числа. Если числа больше 10, программа находит их произведение и выводит его на экран, иначе находит их сумму и выводит ее на экран.

var

 a, b: integer;

begin

 writeln('Введите значение a:');

 write('a = ');

 read(a);

 writeln('Введите значение b:');

 write('b = ');

 read(b);

 if (a > 10) or (b > 10) then

   writeln('Произведение чисел ', a, ' и ', b, ' равно ', a * b, '.')

 else writeln('Сумма чисел ', a, ' и ', b, ' равна ', a + b, '.')

end.