ПЕРЕВЕДИТЕ С ПАСКАЛЯ НА КУМИР!
СРОЧНО!! Прошу!!
var
a, s: integer;

begin
s := 0;
read (a);
while a <> 0 do
begin
s := s + 1;
read(a);
end;
writeln(s);
end.

алг

нач

цел a, s

s:=0

ввод a

нц пока a<>0

 s:=s+1

 ввод(a)

кц

вывод(s)

кон

Если будут ошибки - прошу отписаться