Задача: вывести все простые числа до введенного, язык:Pascal. Ввожу 10. Выводит 1, 2, А где 5 и 7?

16.03.2017
Без рубрики

Задача: вывести все простые числа до введенного, язык:Pascal.Ввожу 10. Выводит 1, 2, 3. А где 5 и 7?

Помогите пожалуйста

  • var n,i:integer;
    function simply (n:integer):boolean;
     var i,m:integer;      flag:boolean;

     begin

       if (n