Дано ціле число. Визначте, чи воно парне
В ЯЗЫКЕ ПАСКАЛЬ ПОЖАЛУЙСТА

var number:integer;

var number2:float;

begin

number2 = 0;

writeln("Введите число:");

readln(number);

if (number2 mod 2 = 0) then

writeln("Число чётное");

else:

writeln("Число нечётное");

end.