Localize file www.TrSek.com/zadania/kruh.pas{ KRUH.PAS Copyright (c) TrSek alias Zdeno Sekerak }
{ Vypocita obvod kruhu }
{ Vstup : polomer kruhu }
{ Vystup: obvod kruhu pre danny polomer }
{ }
{ Datum:10.04.2000 http://www.trsek.com }
program kruh;
uses crt;
var r,obvod,obsah: real;
begin
Clrscr;
Write('Zadaj polomer kruhu:');
ReadLn(r);
obvod:=2*3.1415*r;
obsah:=3.1415*r*r;
WriteLn('Obvod kruhu je:',obvod:5:2,' a jeho obsah je ',obsah:5:2);
Readln;
end.