цикл с параметром паскаль  вывести  все трехзначные числа оканчивающиеся на 13;42

1)var i, x: integer;beginfor i:=1 to 9 do   begin   x:=i*100+13;   write(x: 4)   endend.2)var i, x: integer;beginfor i:=1 to 9 do   begin   x:=i*100+42;   write(x: 4)   endend.

Program Thirteen_FortyTwo;var  i: integer;  s: string;begin  for i := 100 to 999 do  begin    str (i,s);    if (copy (s, 2, 2) = '13') or (copy (s, 2, 2) = '42') then writeln(s);  endend.