ПОМОГИТЕ ИНФОРМАТИКА СРОЧНО

{1. Решето Эратосфена} {Начало программы} Program Euler; var n, i, j: integer; {целочисленные переменные для ввода и поиска простых чисел} a: array[1..1000] of boolean; {массив для хранения значений простоты чисел} begin {Ввод числа N с клавиатуры} write('Введите число N: '); readln(n); {инициализация массива значениями true} for i := 1 to n do a[i] := true; {решето Эратосфена: проверка значений до корня из N} for i := 2 to trunc(sqrt(n)) do begin {вывод простых чисел} if a[i] then writeln(i); {вычеркивание не простых чисел} j := i * i; while j