Выбери строчки с ошибками в работе программы

Дана программа нахождения четных чисел в диапазоне от 3 до 20:

1. program pr4;
2. var a: real;
3. begin;
4. a:=3;
5. while a \(\lt\) 20 do
6. begin
7. if a mod 2 \(\lt\gt\) 0 then writeln('Число четное - ', a)
8. a:=a+1;
9. end;
10. end.

Укажи номера строк с ошибками:

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10