var a, b: integer; function average(a, b: integer): real; begin average := (a + b) / 2; end; begin
end.
1000 ms 256 Mb Правила оформления программ и список ошибок при автоматической проверке задач