Укажите строки, в которых допущены ошибки. Запишите их номера в порядке возрастания. Например, 123

Разбор кода:

Давай посмотрим на программу, которая должна определять, чётное число или нет. В ней есть ошибки, и нам нужно их найти.

1. var a: real; — здесь всё верно. Мы объявляем переменную a, и она может быть дробной.
2. begin — начало программы, тоже правильно.
3. Readln (a); — здесь ошибка. Функция для ввода данных называется Readln, а не ReadIn.
4. if a div 2 = 0 then — тут тоже ошибка. Оператор div используется для целочисленного деления. Если мы хотим проверить чётность числа, нам нужен оператор взятия остатка от деления, то есть mod. Правильно должно быть if a mod 2 = 0 then.
5. Writeln ('чётное') — эта строка верна, если условие выполнится.
6. else — начало блока для нечётных чисел, верно.
7. Writeln ('нечётное"); — здесь ошибка в кавычках. В конце строки стоит символ двойной кавычки ("), а должен быть одинарный апостроф ('), как и в строке 5.
8. end. — конец программы, всё верно.

Ответ: 3, 4, 7