Программа проверяет на четность введенное с клавиатуры целое число.
Решение:
| 1 2 3 4 5 6 7 8 9 10 | program choice_1; uses crt; var a: integer; begin clrscr; write(‘Введите число > ‘); readln(a); if a mod 2 <> 0 then write(a, ‘ нечетное число’) else write(a, ‘ – четное число’); readkey; end. |