Управление жизненным циклом (тест)

для того что было понятнее обозначим берег на котором солдаты "1", а второй берег "2".сначала через реку переплывают вдое мальчиков на берег 2, один остается другой возращается обратно на берег 1, переплывает солдат и отдает лодку мальчику на берегу 2, который в свою очередь переплывает на берег 1, забирает брата и переплывают вдвоем на берег 2. и данный алгоритм повторяется пока все солдаты не переправятся.

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

подвести курсор к элементу удаления 

нажать клавишу backspace. 

var x1,x2,x3,x4,x5: integer;

s: real;

begin

  read(x1,x2,x3,x4,x5);

  s: = (x1+x2+x3)/(x4+x5);

  if round(s)=s then writeln("celoe - "s);

end.