Написать программу нахождения частного отделения двух чисел . определить является ли целое число вводное с компьютера чётным.

Var a,b:integer;
begin
read(a,b);
writeln(a/b);
end.

var a:integer;
begin
readln(a);
writeln(not odd(a));
end.