PROGRAM PROBLEM28 (OUTPUT);

VAR INNER, INDEX, RESULT : INTEGER;

BEGIN

RESULT := 0;

FOR INDEX := 20 DOWNTO 10 DO

FOR INNER := 5 TO 10 DO

RESULT := RESULT + 2;

WRITELN (RESULT);

END.