Question

Помогите решить
Задача 8.
Определить, является ли натуральное число, введенное с клавиатуры в память компьютера, четным.

Answer 1

program lol;
var a:integer;
begin
readln(a);
if(a mod 2=0) then writeln('да')
else write('нет');
end.