помогите аа нужно составить програмку в паскале

давай задачу, поможем) )

program a1;
var a:string; i:integer;
begin
a:='аффтар лох';
for i:=1 to 100 do
begin
writeln(a);
end;
end.

Извини за задержку…
(Ночью я обычно сплю 😉

Вот готово:

Введите сумму цифр натурального числа А = 5
Число заканчивается на B = 0
Ответ: бесконечное множество

Введите сумму цифр натурального числа А = 0
Число заканчивается на B = 5
Ответ: нет таких чисел!

Введите сумму цифр натурального числа А = 1
Число заканчивается на B = 1
Ответ: бесконечное множество