{$mode objfpc} {$h+} {$codepage utf8}
uses
{$ifdef unix} cwstring, {$endif}
	SysUtils;

type
	TerrainEnum = (Mud, Soil, Grass, Swamp, Forest, Desert, Shoal);

const
	TerrainInfo: array[TerrainEnum] of record
		name: unicodestring;
		afootVel: single;
	end =
	(
		(name: 'грязь'; afootVel: 2.5),
		(name: 'почва'; afootVel: 3.5),
		(name: 'трава'; afootVel: 4.5),
		(name: 'болото'; afootVel: 1.2),
		(name: 'лес'; afootVel: 3),
		(name: 'пустыня'; afootVel: 4),
		(name: 'мелководье'; afootVel: 1)
	);

var
	t: TerrainEnum;

begin
	for t in TerrainEnum do
		writeln(UnicodeUpperCase(TerrainInfo[t].name), ', скорость пешехода: ', FloatToStrF(TerrainInfo[t].afootVel, ffGeneral, 6, 0), ' км/ч');
end.