Вычислите длину окружности r=5,6 (паскаль)
Begin writeln(2*5.6*3.14); end.
ну или var d:byte; begin d:=5.6*2; writeln(d*pi); end. насчёт pi неуверен компилятора нет