Ответ: program dragon;var n, h: integer;begin h := 0; write(‘n = ‘); readln(n); if n > 100 then begin h := (n — 100) * 2; h := h + 300; end else h := n * 3; writeln(‘голов: ‘, h); writeln(‘глаз: ‘, h * 2);end.