Ответ:

program z1;

var a,b,c:integer;

begin

write ('a = ');

readln (a);

write ('b = ');

readln (b);

write ('c = ');

readln (c);

writeln ('Сумма ',a + b + c);

writeln ('Произведение ',a * b * c)

end.

Объяснение:

Вводим 3 числа

Выводим сумму

Выводим произведение