Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и подсчет количества введеных чисел .Используйте оператор while. Решить в паскале.

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

Пожалуйста

Спасибо!

var a,k:integer;beginwrite('a = '); readln(a);k:=0;while a<>0 do begin k:=k+1; write('a = '); readln(a); end;writeln('Количество чисел = ',k);end.Пример:a = 8a = 7a = 5a = 3a = 2a = 4a = 1a = 9a = 0Количество чисел = 8