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

Я так понял, должен запуститься цикл и во время итерации при каждом проходе он должен выводить с новой строки то кол-во раз, сколько он выполнился. 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.