Вpascal abc с циклического алгоритма for нужно решить: 1) найти количество чисел от a до b, делящихся без остатка на 3 и 4 одновременно. 2) вывести все двузначные числа, в записи которых есть цифра n. включить проверку на то, что n является однозначным числом.

var a,b,i,n:integer;
Begin
    read(a,b);
    for i:= a to b do
        if i mod (3*4) = 0 then n:=n+1;
    writeln(n);
End.

var n,i:integer;
Begin
    for i:= 1 to 99 do begin
        if (i div 10 <> 0) and ((i div 10 = n) or (i mod 10 = n)) then
            write(i,' ');
    end;
End.