Смотри решение на фото ниже.
Я там ещё прикрепила некоторый материал, который может помочь в решении таких заданий
Основная характеристика работы модема – скорость передачи данных.
Скорость передачи данных показывает, какое количество информации способен передать или получить модем за единицу времени, обычно измеряется в килобитах в секунду, мегабитах в секунду, а если повезёт, то и в гигабитах в секунду.
Const
n=6;
Type vector=array[1..n] of integer;
var x:vector;
i:integer;
pr:extended;
begin
<u>pr:=1;</u>
for i:=1 to n do
begin
readln(x[i]);
if x[i] mod 17=0 then
pr:=pr*x[i];
end;
writeln('proizvedenie= ',pr:4:4);
readln;
<span>end.</span>