Дано: writeln (s:6:2);
Если s=112,93215,
то на экране появится

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

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.