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

при деление на два остаток только 1 или 0, выполняем вычитание пока А больше 1var A:integer;Beginwriteln('Введите число А');readln(A);while A>1 do A:=A-2;if A=0 then writeln('А - четное, остаток ',A)else writeln('А - нечетное, остаток ',A)End.