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

Question

ПЕРЕВЕДИТЕ С ПАСКАЛЯ НА КУМИР! СРОЧНО!! Прошу!! var a, s: integer; begin s := 0; read (a); while a <> 0 do begin s := s + 1; read(a); end; writeln(s); end.

Answer 1

алг

нач

цел a, s

s:=0

ввод a

нц пока a<>0

 s:=s+1

 ввод(a)

кц

вывод(s)

кон

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