Между дуантами циклотрона радиусом R=50 см приложена переменная разность потенциалов U=75 кВ с частотой ν=10 МГц. Найти магнитную индукцию

Const N = 10;
var a, k, e: integer;
begin
     readln(a);
     if (a > N) then
        writeln('Error')
     else
     begin
          while (k < a) do
          begin
               k := k + 3;
               e := e + 1;
          end;
          writeln(e);
     end;
end.

Вот и лифт =)