Склавиатуры вводятся два натуральных числа а и в (а

Var
    a, b, i, k: integer;

begin
    readln(a, b);
    
    for i := a to b do
        if i mod (7 * 2) = 0 then
        begin
            k := k + 1;
            writeln(i);
        end;
    
    writeln('K = ', k);
end.