Помогите написать пограмму ** pascal. Нужно использовать while.

Question

Помогите написать пограмму на pascal. Нужно использовать while.

---

Answer 1

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var k:=0;
  var n:=ReadReal;
  while n<>0 do begin
    k+=1; Read(n)
    end;
  Writeln(NewLine,k)
end.

Пример
12
-12.53
0.345325
1532
-234534
0

5