program ChangeNumbers;
var
num1, num2, newNum1, newNum2, sum: real;
begin
writeln('Enter the first number: ');
readln(num1);
writeln('Enter the second number: ');
readln(num2);
newNum1 := num1 / 3;
newNum2 := num2 + 5;
sum := newNum1 + newNum2;
if sum < 10.5 then
writeln('New numbers: ', newNum1:0:2, ' and ', newNum2:0:2)
else
writeln('Difference between numbers: ', num1 - num2:0:2);
end.

Алгоритм:

Ввести первое число и сохранить в переменную num1.Ввести второе число и сохранить в переменную num2.Рассчитать новое значение первого числа, разделив его на 3 и сохранить в переменную newNum1.Рассчитать новое значение второго числа, увеличив его на 5 и сохранить в переменную newNum2.Просуммировать новые значения и сохранить в переменную sum.Проверить, если сумма меньше 10.5, вывести новые значения на печать.В противном случае, вывести разность введенных чисел на печать.