Ввести число и вычитать из него 2 пока оно не станет меньше или равно 1. Сколько раз выполнено вычитание

C while:

var

i, k: integer;

begin

writeln ('Число: ') ;

readln (i) ;

while i > 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 < = 1;

writeln ('Количество вычитаний - ', k) ;

end.