Паскаль, составить программу: вводить с клавиатуры числа, пока не будут введен 0. найти количество введенных чисел.

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