1. Дано целое k>2. Напечатать все простые числа из диапазона [2,k]2. Найти первое число…

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