Написать программу: ввод четного числа

program zz1;

label 1; / / описываем метку

var n:integer; / / задаем переменную целого типа

begin

1: write (' введите заданное число n '); / / вводим с клавиатуры число и помечаем эту строку меткой

read (n);

if n mod 2 = 0 / / проверяем условие, если введенное число четное, то

then write (' вы ввели четное число ') / / выводим один ответ

else begin write (' вы ввели не четное число, повторите ввод '); goto 1; end; / / иначе, выводим другой ответ и переходим в строку помеченную меткой

end.