Дано целое число А(А>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.