Ответы и объяснения

2014-01-15T16:35:59+00:00
Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой