Дано целое число А (А>2). определить является ли число чётным или нечётным (последовательно вычитаем из из числа А число 2 и определяем остаток)

При деление на два остаток только 1 или 0, выполняем вычитание пока А больше 1

var A:integer;

Begin

writeln ('Введите число А') ;

readln (A) ;

while A>1 do A:=A-2;

if A=0 then writeln ('А - четное, остаток ', A)

else writeln ('А - нечетное, остаток ', A)

End.