Составить программу, в которой осуществляется ввод трёх целых чисел с клавиатуры и вывод на экран монитора значения их суммы.

Ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы. var a,b,c,d,z:integer; begin writeln('Введите 1 число'); read(a); writeln('Введите 2 число'); read (b); writeln('Введите 3 число'); read (c); d:=a+b+c; writeln('Сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет'); read (z); while (z = 1) do begin writeln('Введите 1 число'); read(a); writeln('Введите 2 число'); read (b); writeln('Введите 3 число'); read (c); d:=a+b+c; writeln('Сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет'); read (z); end; end.