составить программу которая определяет какая из цифр: 0, чётная, нечетная, больше 10, нажата на клавиатуре( на паскале)

var a,b:integer;beginwriteln('Введите целое число: ');readln(a);b:= a mod 2;if b>0 then writeln('Число нечётное') else writeln('Число чётное');if a>=10 thenwriteln('Число >=10') else writeln('Число =<10');end.