Решение смотри во вложенном файле .xlsx.
C h u k a l o v a
68 104 117 107 97 108 111 118 97
1000100 1101000 1110101 1101011 1100001 1101100 1101111 1110110 <span>1100001</span>
Program zadacha;
var a,b,c,s,p: integer;
begin
writeln ('Введите три числа');
readln (a,b,c);
s:=a+b+c;
p:=a*b*c;
writeln ('Сумма равна ',s);
writeln ('Произведение равно ',p);
end.
Вопрос не понятен попроще написать нельзя?