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

Я так понял, должен запуститься цикл и во время итерации при каждом проходе он должен выводить с новой строки то кол-во раз, сколько он выполнился.

var i: integer; {единственная переменная, которая нужна - счетчик}
begin
for i:=0 to 4 do {или нужное кол-во вместо 4} 
writeln(i);
end.

Писал без отступов, но здесь и так пара строк. Программа полностью рабочая, но учтите, что счет ведется от 0 и цикл в примере повторится не 4, а 5 раз. На выходе будет:
0
1
2
3
4

Если хотите начинать с 1 - пожалуйста, достаточно сменить значение с 0 на 1.