Вычислить Y=A+B+C , применив: а) - процедуру ввода данных; - процедуру вычисления Y; - процедуру вывода результата; - глобальные переменные;
PASCAL ABC

var a,b,c,y:integer; // глобальные переменныеbegin // начало программыwrite('A, B, C: '); // вывод подсказки перед вводом данныхreadln(a,b,c);  // ввод данныхy:=a+b+c;  / вычисление Ywriteln('Y = ',y); // вывод результатаend. // конец программыПример:A, B, C: 8 3 5Y = 16