запишите на языке ПАСКАЛЬ программу, соответствующую приведенной ниже блок-схеме и определить, что вычисляет данная программа!!!

uses crt;var n,s:integer;beginread(n);s:=0;while n<>0 dobegins:=s+n;read(n);end;writeln(s);end.Программа считывает введённые элементы, пока не введён 0, и выводит их сумму.