Циклы со счетчиком
Введите с клавиатуры десять чисел. Выведите на экран произведение этих чисел.
Program Anadra;
uses crt;
var a,b,c: integer;
begin
writeln(‘Введите 10 чисел’);
c:=1;
for a:= 1 to 10
do
begin
readln(b);
c:=c*b;
end;
writeln(‘Произведение чисел равно ‘,c);
end.