program co_urobi_2; uses crt; const pi=3.14; var r,o: real; begin clrscr; writeln('Zadaj kladne realne cislo'); readln(r); o:=2*pi*r; writeln('Vysledok je ',o:9:1); readln; end.