Здрасти, подскажите пожалуйста, что нужно написать в программке с циклом,чтобы в

Необходимо задать специальную переменную целого типа, которая будет отсчитывать каждый выполненный круг цикла вот так: k:=k+1. К примеру
while lt;условиеgt; do
begin
lt;оператор1gt;;
lt;оператор2gt;;
...
k:=k+1 значение переменной возрастает на 1 с каждым выполнением цикла
end;