Řešení:
Ze zadaného poloměru lze délku kružnice O a obsah kruhu S vypočítat podle vzorců:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var polomer,delka,obsah:real;

begin

   write('Zadejte polomer kruznice: ');
   readln(polomer);

   delka:=2*pi*polomer;
   obsah:=pi*sqr(polomer);

   writeln('Delka kruznice = ',delka:0:3);
   writeln('Obsah kruhu = ',obsah:0:3);

   readln;

end.