Перевести с языка кумир на язык паскаль заранее спасибо - Pascal (248811)

Формулировка задачи:

var a: integer; 
Begin 
  Writeln ('Введите число');
  Readln (a); 
  if a mod 2 = 0 then 
  writeln ('Это число чётное') 
  else 
  writeln ('Число нечётно'); 
end.

Решение задачи: «Перевести с языка кумир на язык паскаль заранее спасибо»

Листинг программы

алг
нач
цел a 
вывод "Введите число", нс
ввод a
если mod(a,2)=0 то вывод "Это число четное"
иначе вывод "Это число нечетное" 
все
кон

Объяснение кода листинга программы

алг - описание языка программирования, в данном случае Pascal
нач - начало работы программы
цел a - объявление целочисленной переменной a
вывод Введите число, нс - вывод сообщения с просьбой ввести число и переход в режим ввода
ввод a - ввод значения переменной a с помощью оператора ввода
если mod(a,2)=0 то вывод Это число четное - проверка на четность числа, если число четное, то выводится сообщение Это число четное
иначе вывод Это число нечетное - если число нечетное, то выводится сообщение Это число нечетное
все - завершение условного оператора
кон - конец работы программы