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

Нужно задать специальную переменную целого типа, которая будет отсчитывать каждый выполненный круг цикла вот так: k:=k+1. Напримерwhile <условие> dobegin<оператор1>;<оператор2>;...k:=k+1 {значение переменной увеличивается на 1 с каждым выполнением цикла}end;