NOTENDUR.PAS

program notendurchschnitt;
uses crt, u1;
var
   a: string;
   n1: integer;
   n2: integer;
   n3: integer;
   n4: integer;
   n5: integer;
   n6: integer;
   s: integer;
   nd1: real;
   nd2: real;
begin
     clrscr;
     n1:=0;
     n2:=0;
     n3:=0;
     n4:=0;
     n5:=0;
     n6:=0;
     nd1:=0;
     nd2:=0;
     s:=0;
     writeln ('Guten Tag. Ich bin ein einzigartiges Program, daá automatisch');
     writeln ('den Klassen - Notenspiegel ( mit Durchschnitt ) errechnen kann.');
     writeln ('Bitte schnallen Sie sich an, und folgen den Anweisungen des');
     writeln ('Bodenpersonals !');
     delay (1000);
     pause;
     clrscr;
     writeln ('Und schon geht es los');
     writeln;
     writeln;
     writeln ('Wieviel Einsen gibt es ? ');
     readln (n1);
     writeln ('Wieviel Zweien gibt es ? ');
     readln (n2);
     writeln ('Wieviel Dreien gibt es ? ');
     readln (n3);
     writeln ('Wieviel Vieren gibt es ? ');
     readln (n4);
     writeln ('Wieviel Fnfen gibt es ? ');
     readln (n5);
     writeln ('Wieviel Sechsen gibt es ? ');
     readln (n6);
     delay (3000);
     pause;
     clrscr;
     s:=n1+n2+n3+n4+n5+n6;
     nd1:=(1*n1)+(2*n2)+(3*n3)+(4*n4)+(5*n5)+(6*n6);
     nd2:=nd1/s;
     writeln ('Der Kassenspiegel sieht folgendermaáen aus:');
     writeln;
     writeln;
     write (n1);
     writeln (' mal gibt es die 1');
     writeln;
     write (n2);
     writeln (' mal gibt es die 2');
     writeln;
     write (n3);
     writeln (' mal gibt es die 3');
     writeln;
     write (n4);
     writeln (' mal gibt es die 4');
     writeln;
     write (n5);
     writeln (' mal gibt es die 5');
     writeln;
     write (n6);
     writeln (' mal gibt es die 6');
     writeln;
     writeln;
     write (s);
     writeln (' Schler haben die Arbeit mitgeschrieben');
     writeln ('Der Durchschnitt dieser Arbeit betr„gt:');
     writeln (nd2:1:50);
     delay (40000);
     delay (50000);
     pause;
     pause;
     pause;
end.