Задача - может ли принц мечом срубить все головы дракона

[SweetyGirl]

классно) только вот мне вообще ничего не понятно знаю, болела довольно долго.Но он говорит она всего то на 22 процента тянет сложности. Хотя для колледжа мне кажется сложновато.

var f:text; mech,gol,reg,k:longint;
begin
  Assign(f,'input.txt');
  reset(f);
  read(f,mech,gol,reg);
  close(f);
  k:=0;
  Assign(f,'output.txt');
  rewrite(f);
 if (mech<=reg) then
   begin
     if (mech=gol) then write(f,'1') else write(f,'NO')
   end
 else
   begin
    while gol>0 do
      begin
        dec(gol,mech);
       if (gol<=0) then
         begin
           inc(k);
           break;
         end;
        inc(gol,reg);
        inc(k);
      end;
     write(f,k);
   end;
  close(f);
end.

подруга нашла что то типо этого, но она вообще не работает и мне кажется что это бред полнейший

паксаль старый и нету команды брейк((( блин я не знаю что делать

может скачать паскаль поновее ? я просто уже не знаю что делать, понимаю, что мне программирование не пригодиться, но сдать надо последний экзамен до диплома не допускает ни в какую

[ZX Spectrum-128]

freepascal.org

[SweetyGirl]

а в турбо паскале это задание можно сделать в принципе?

[ViktorR]

В TP 7 Break есть.
Скачать и поставить FPC (freepascal.org) - можно и в течение часа.

В худшем случае поставь метку за концом цикла и используй goto.
(на ругань препода - ну, вот такой у меня сегодня паскальный день )

Как-то так, ...