Написать программу с помощью цикла for. Из чисел от 10 до 99 вывести те, сумма которых равна N. N-вводится с клавиатуры. Паскаль.

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

program SumNumbers;

va
N, i, j, sum: integer;

begi
write('Введите число N: ')
readln(N);

writeln('Числа от 10 до 99, сумма которых равна ', N, ':')
for i := 10 to 98 d
begi
for j := i + 1 to 99 d
begi
sum := i + j
if sum = N the
writeln(i, ' + ', j, ' = ', N)
end
end
end.