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 числа
Выводим сумму
Выводим произведение
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 числа
Выводим сумму
Выводим произведение