procedure mult ();
var a,b,c : integer;
begin
writeln('Введите 3 числа: ');
readln(a,b,c);
writeln('Результат перемножения: '+a*b*c)
end;
mult;
end.
Объяснение:
Написано на Pascal
