Question

Вычислить сумму 4 целых чисел(любых) и вывести развернутое сообщение о проведеной операции.

Answer 1

VAR  
   a,b,c,d: LongInt;
BEGIN  
   Read(a,b,c,d);     
   Write('Сумма введенных чисел равна ',a+b+c+d);
END.

Answer 2

VAR  
   a,b,c,d: LongInt;
BEGIN  
   Read(a,b,c,d); 
   Write(a,'+',b,'+',c,'+',d,'=',a+b+c+d);
END.