Ř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);

   if polomer>0 then
   begin
      delka:=2*pi*polomer;
      obsah:=pi*sqr(polomer);
      writeln('Delka kruznice = ',delka:0:3);
      writeln('Obsah kruhu = ',obsah:0:3);
   end
   else writeln('Spatne zadani');

   readln;
end.