Ввести число и вычитать из него 2 пока оно не станет

C while:

var
  i, k: integer;

begin
  writeln('Число: ');
  readln(i);
  while i gt; 1 do
  begin
    i := i - 2;
    k := k + 1
  end;
  writeln('Количество вычитаний - ', k);
end.

с repeat:

var
  i, k: integer;

begin
  writeln('Число: ');
  readln(i);
  repeat
    i := i - 2;
    k := k + 1
  until i lt;= 1;
  writeln('Количество вычитаний - ', k);
end.