Question

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

Answer 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.

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