Question

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

Answer 1

program m;

uses crt;

var a,b,c,sum:integer;

begin

clrscr;

readln(a,b,c);

sum:=a+b+c;

writeln('      ',sum);

readkey;

end.

Answer 2

Вот так понятней буде)) Ну и более правильно, для школьников...

 

var a,b,c,d:integer;
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
end.