Ввести два числа и вывести их произведение на экран

// Произведение целых чисел
var
   p: real;
i: integer;
n: integer;
x: real;
begin
write(Введите число множителей: );
n := ReadInteger;
  p := 1;
for i:=1 to n do
begin
write(Введите множитель: );
x := ReadReal;
p := p*x;
end;
   writeln(Произведение равно , p);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!