Хотел сделать продолжение где у человека был бы выбор продолжать ли ему решать или же нет uses crt;
var
A,B,C,D : integer;
begin

write('Введите число: ');
readln(A);

B:=A mod 2;
if B=0 then writeln('число чётное')
else writeln('число не чётное');

write('Хотите продолжить?');

uses crt;

var A,B,C,D: integer;

   check: char;

begin

   while True do begin

       write('Введите число: '); readln(A);

       B := A mod 2;

       if B = 0 then writeln('число чётное')

       else writeln('число нечётное');

       write('Хотите продолжить? (y/n): '); readln(check);

       if check <> 'y' then break;

   end;

end.