Ввести 3 целых числа и вывести на экран их сумму и произведение. поомогите,объясните...
var x,y,z:integer;
S:integer;
P:integer;
begin
readln(x,y,z);
S:=x+y+z;
P:=x*y*z;
writeln(S,P)
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Ввести 3 целых числа и вывести на экран их сумму и произведение. поомогите,объясните...
var x,y,z:integer;
S:integer;
P:integer;
begin
readln(x,y,z);
S:=x+y+z;
P:=x*y*z;
writeln(S,P)
end.