Найдите выведите на...

Найдите выведите на экран все трехзначные числа,кратные 20,сумма цифр которых равны сумме цифр частного от деления их на 20 Можеттак

 

Ваш алгорим не оптимален, совершенно незачем делать "for k:=100 to 1000000000 do", т.к. по условию необходимо проверить лишь трехзначные числа.
 
uses crt;
var a,b,k:integer;
begin
for k:=100 to 999 do
if k mod 20 =0
  then begin
    a:= k div 20;
    b:= k div 10;
    if ((a mod 10) + (a div 10)) = ((k mod 10) + (b mod 10) + (a div 10)) then writeln(k);
   end;
end.