ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ: Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.
Program kek;var a, i: Integer;begin repeat i += 1; readln(a); until a = 0; writeln(i - 1);end.