Составте алгоритм и программу. Ввести два числа. уменьшив первое число в 3 раза, второе увеличить на 5. Если сумма полученных чисел меньше 10,5, то вывести их на печать, иначе вывести на печать разность ваеденных чисел. В PASCAL

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

program ChangeNumbers
va
num1, num2, newNum1, newNum2, sum: real
begi
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 the
writeln('New numbers: ', newNum1:0:2, ' and ', newNum2:0:2
els
writeln('Difference between numbers: ', num1 - num2:0:2)
end.

Алгоритм:

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