{$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.

eyRtb2RlIG9iamZwY30geyRoK30geyRjb2RlcGFnZSB1dGY4fQp1c2VzCnskaWZkZWYgdW5peH0gY3dzdHJpbmcsIHskZW5kaWZ9CglTeXNVdGlsczsKCnR5cGUKCVRlcnJhaW5FbnVtID0gKE11ZCwgU29pbCwgR3Jhc3MsIFN3YW1wLCBGb3Jlc3QsIERlc2VydCwgU2hvYWwpOwoKY29uc3QKCVRlcnJhaW5JbmZvOiBhcnJheVtUZXJyYWluRW51bV0gb2YgcmVjb3JkCgkJbmFtZTogdW5pY29kZXN0cmluZzsKCQlhZm9vdFZlbDogc2luZ2xlOwoJZW5kID0KCSgKCQkobmFtZTogJ9Cz0YDRj9C30YwnOyBhZm9vdFZlbDogMi41KSwKCQkobmFtZTogJ9C/0L7Rh9Cy0LAnOyBhZm9vdFZlbDogMy41KSwKCQkobmFtZTogJ9GC0YDQsNCy0LAnOyBhZm9vdFZlbDogNC41KSwKCQkobmFtZTogJ9Cx0L7Qu9C+0YLQvic7IGFmb290VmVsOiAxLjIpLAoJCShuYW1lOiAn0LvQtdGBJzsgYWZvb3RWZWw6IDMpLAoJCShuYW1lOiAn0L/Rg9GB0YLRi9C90Y8nOyBhZm9vdFZlbDogNCksCgkJKG5hbWU6ICfQvNC10LvQutC+0LLQvtC00YzQtSc7IGFmb290VmVsOiAxKQoJKTsKCnZhcgoJdDogVGVycmFpbkVudW07CgpiZWdpbgoJZm9yIHQgaW4gVGVycmFpbkVudW0gZG8KCQl3cml0ZWxuKFVuaWNvZGVVcHBlckNhc2UoVGVycmFpbkluZm9bdF0ubmFtZSksICcsINGB0LrQvtGA0L7RgdGC0Ywg0L/QtdGI0LXRhdC+0LTQsDogJywgRmxvYXRUb1N0ckYoVGVycmFpbkluZm9bdF0uYWZvb3RWZWwsIGZmR2VuZXJhbCwgNiwgMCksICcg0LrQvC/RhycpOwplbmQu