Написать программу на языке Pascal Задано произвольное число. Проверить является ли оно четным.

var   f : integer;  // объявляем переменнуюbegin   write(\'Введите число: \');   // выводим строку на экран   readln(f);                         // считываем значение, введенное с клавиатуры       if (f mod 2 = 0) then     // проверяем четность числа, находя остаток от деления на два            writeln(\'Число \', f, \' является четным \') // выводим строку на экран       else                             // если нечетное            writeln(\'Число \', f, \' является нечетным \') // выводим строку на экран

end.