Фотоснимок печатается «контактным с использованием электрического осветителя, расположенного на расстоянии r1 = 60 см

Написал на Паскале
uses crt;
var
i,n:integer;
begin
i:=0;
n:=1;
Repeat
if i mod 3=2 then
begin
n:=n*i;
end;
i:=i+1;
Until i>15;
writeln(n);
end.