program runde_zahlen;

uses crt;
var b:integer;
    eingabe,ausgabe,sicherungszahl_falls_verloren:real;

PROCEDURE multipliziere;
         BEGIN
              write('Bitte geben Sie die zu rundende Zahl ein: ');
              readln(eingabe);
{              write('Auf wieviel Stellen wollen Sie runden? ');
              readln(rundenanzahl); }

              sicherungszahl_falls_verloren:=eingabe;
         END;

PROCEDURE rechnen;
         BEGIN
              ausgabe:=int(eingabe)+round(frac(eingabe)*1000)/1000;
         writeln(ausgabe);
         END;

PROCEDURE verschoenern;
          BEGIN
               textcolor(yellow);textbackground(red);clrscr;
          END;
BEGIN
     verschoenern;
     multipliziere;
     rechnen;
     readln;
END.