{ KRUH.PAS                                                          }
{ Program na vypocet obsahu kruhu.                                  }
{                                                                   }
{ Author: RaptoR (Juraj Danis)                                      }
{ Date  :19.1.2009                             http://www.trsek.com }

program obsah_kruh;
uses crt;
var r,rr,obsah,obvod:real;
    smer:string;
    c:char;
begin
repeat
 clrscr;
 writeln('Tento program vypocita obsah kruhu');
 writeln('Zadaj polomer kruhu (cm)');
 readln(r);

 obsah:=r*r*3.14;
 writeln('Obsah kruhu je ',obsah:2:2,' cm');
 readln;

 clrscr;
 writeln('Opakovat? Y/N');
 readln(c);
until c='n'
end.