Program Sum; var a,b,c,s: integer; begin WriteLn('Введите числа а,в,с'); ReadLn(a,b,c); s:=a+b+c; WriteLn('Сумма чисел равна',s); end.