program z1;   var a,b,k,i:integer;     begin       k:=0;       write('Ââåäèòå êîîðäèíàòó à: ');       read(a);       write('Ââåäèòå êîîðäèíàòó b: ');       read(b);       for i:=a to b do begin                        if i mod 3=0 then begin                                            writeln(i);                                            k:=k+1;                                          end;                        end;       writeln('Количество чисел кратных трём равно ',k);      re