ответ: var a, b, c, s, p:Integer;
Begin
Write('введите числа') ;
Read(a, b, c) ;
S:=a+b+c;
P:=a*b*c;
Write(P, '' ,s ) ;
End.
Объяснение:
ответ: var a, b, c, s, p:Integer;
Begin
Write('введите числа') ;
Read(a, b, c) ;
S:=a+b+c;
P:=a*b*c;
Write(P, '' ,s ) ;
End.
Объяснение: