var a,i: integer;
begin
a:=1;
for i = 100 to 999 do
begin
if (i mod 3)=7 then
a:=a*i;
end;
writeln (a);
end.
тип того

program morningglory;
uses crt;
 var y,i:integer;
P:=1; 
begin for i:=100 to 999 do
  if i mod 7=3 then begin
   P:=P*i);
  end;
  writeln ('Произведение чисел, дающих при делении на 7 остаток 3 =',P);
 end.