Срочно нужно написать программу на Паскале. Переменные x и k

То есть последнее значение в программе выдает K?

ну да, больше в программе никаких значений и не выдает

writeln(k);

Огромное спасибо за помощь!

для спасибо есть кнопочка)

вводится последовательность чисел которая заканчивается нулем. Посчитать сколько в ней чисел больше 1 var    x, k: real;begin    repeat        write('x = ');        readln(x);        if x > 1 then k := k + 1;    until x = 0;    writeln(k);end.Пример выводаx = 2x = 1x = 01