найти все 3 значные числа в которых присутствует 0 паскаль

Перебирать все 900 чисел в диапазоне нет необходимости:

 program Numbers;

var n, c: integer;

begin

  c := 100;

  while c < 1000 do begin

    for n := 0 to 9 do writeln(n + c);

    for n := 1 to 9 do writeln(n * 10 + c);

    c := c + 100

  end

end. 

for i:=100 to 999 do
if (i mod 10 = 0) or (i mod 100 < 10) then
writeln(i);

Держи:

100
101
102
103
104
105
106
107
108
109
110
120
130
140
150
160
170
180
190
200
201
202
203
204
205
206
207
208
209
210
220
230
240
250
260
270
280
290
300
301
302
303
304
305
306
307
308
309
310
320
330
340
350
360
370
380
390
400
401
402
403
404
405
406
407
408
409
410
420
430
440
450
460
470
480
490
500
501
502
503
504
505
506
507
508
509
510
520
530
540
550
560
570
580
590
600
601
602
603
604
605
606
607
608
609
610
620
630
640
650
660
670
680
690
700
701
702
703
704
705
706
707
708
709
710
720
730
740
750
760
770
780
790
800
801
802
803
804
805
806
807
808
809
810
820
830
840
850
860
870
880
890
900
901
902
903
904
905
906
907
908
909
910
920
930
940
950
960
970
980
990

for i:=1 to 9 do begin
for j:=0 to 9 do
writeln(i*100+j);
for j:=1 to 9 do
writeln(i*100+j*10);
end;

var i:integer;
begin
for i:=100 to 999 do
if (i mod 10=0) or (i div 10 mod 10 =0) or
(i div 100=0) then
write(i,' ');
readln
end.