Delphi задачки

[MrMorozko]

Всем привет)
Найти все трехзначные числа, сумма цифр которых равна А, а само число делится на В. А и В задаются

Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.

Всем спасибо заранее)

[Mad_Cat]

1

for i:= 1 to 9 do
 for j:=0 to 9 do
   for k:=0 to 9 do begin
  z:=i*100+j*10+k;
if ((i+j+k)=a) and (z mod b=0) then writeln(z);

2)

i:=0;
while i mod 5<>2 do dec(i);