{ 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.