program Kreis1;

{$APPTYPE CONSOLE}
uses sysutils;

var r, a, u : real;  // r - Radius; a - Flächeninhalt; u - Umfang

begin
  writeln('Kreisberechnung');
  writeln;
  write('Radius= '); readln(r);
  IF r > 0
    THEN begin
                 u := 2*pi*r;
                 a := pi*r*r;
                 writeln('Umfang = ',u :4:2);
                 writeln('Flaecheninhalt = ',a:4:2);
              end
  ELSE writeln('Falsche Eingabe');
  readln;
end.