Информатика паскаль помощь

Это не помощь. Это сделать за тебя. Помощь - это когда ты написал программу, но что-то не работает или работает не так, и ты не можешь понять, почему.

Для решения задачи необходимо перебрать все числа от 2894 до 174882, которые оканчиваются на 8 и у которых сумма цифр больше 22. Для этого можно написать следующий алгоритм на языке Pascal: var
count, num, sum, i: integer;
begin
count := 0;
num := 0;
i := 2894;
while i 0 do
begin
sum := sum + num mod 10;
num := num div 10;
end;
if sum > 22 then
begin
count := count + 1;
if count = 13 then
begin
writeln(i);
end;
end;
end;
i := i + 1;
end;
writeln(count);
end. После запуска программы, на экране появится два числа: количество чисел, удовлетворяющих условию задачи, и тринадцатое такое число по порядку. Ответ на задачу: