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