ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ:
Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.

program kek;var a, i: Integer;begin  repeat    i += 1;    readln(a);  until a = 0;  writeln(i - 1);end.