Определить, что вычисляет программа c:=0;d:=1; while d>0 do begin if d mod 2 =0 then c:=c+d; readln(d); end; writeln(c);