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.классно, что можно заставить бездушную машину работать на себя: ))