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

var

i : integer; / / i - переменная, принимающая значения каждого трехзначного числа.

begin

writeln ('Все трехзначные числа, оканчивающиеся на 13 или 42: ');

for i : = 100 to 999 do begin

if (i mod 100 = 13) or (i mod 100 = 42) then writeln (i);

end;

end.