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

vari : integer; // i — переменная, принимающая значения каждого трехзначного числа.beginwriteln ( \'Все трехзначные числа, оканчивающиеся на 13 или 42: \' );for i := 100 to 999 do beginif ( i mod 100 = 13 ) or ( i mod 100 = 42 ) then writeln ( i );end;end.