программа на вычисления по формуле S:=1,728*a

//Pascal ABC.NET Версия 2.2 Сборка 790
var a,s:real;
begin;
readln(a);
s:=1.728*a;
writeln(s);
end.

Пример ввода:
0.3
Пример вывода:
0.5184