1.дано целое k> 2. напечатать все простые числа из диапазона [2,k] 2.найти первое число фибоначчи, большее заданного n (n> 1).

Var a, b, k, j: integer;
begin
     readln(j);
     a := 1;
     b := 1;
     while (j > a) do
     begin
          k := b;
          b := b + a;
          a := k;
     end;
     writeln(a);
end.

Классно, что можно заставить бездушную машину работать на себя:))