Решите 2 задачи в Паскале! Плииз! 1) Вывести на экран нарутальные числа от 1 до 100,…

1) var sumchis, i: integer; beginfor i: =1 to 100 do beginif i mod 6=4 thenbeginwriteln (i); sumchis: =sumchis+1; end; end; writeln ('Колличество чисел', sumchis); end. 2) var sumchis, i: integer; beginfor i: =1 to 10000 do beginif i mod 17=11 thenbeginwriteln (i); sumchis: =sumchis+1; end; end; writeln ('Колличество чисел', sumchis); end. Как сделать чтобы остаток равнялся B — не знаю, так как программа начинает считывать ее как за переменную, если только B определить как переменную и в нее внести значение какое-то.