[Pilot_Red]

выводи
writeln(floattostr(a1));