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

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

end.