У логическую формулу:
(A&BvA&B&¬CvB&¬CvC) &(¬CvA&Cv¬A&B&¬C)

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.

640*480*3*8/28800 секунд

var x: array[1..10] of real; n: integer; begin  for n: =1 to 10 do begin    x[n]: =power(3,n)-5;     writeln(x[n]);     end; end.

вот программа.

сначала перевозит козу- остается волк и капуста

возвращается   и перевозит волка- остается капуста

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

высаживает там козу и забирает и переправляет капусту

оставляет капусту с волком и возвращается за козой и переправляет козу