program Entschuldigung_proc; {$APPTYPE CONSOLE} {13.12.2003 R.Weigel} {In diesem Programm ist eine Procedure Entschuldigung enthalten, die als (Wert)-Parameter einen Lehrernamen erhält und in der Procedure eine Entschuldigung mit dem Lehrernamen ausgibt.} {-------------------------------------------------------------------------} {Anm.: Sollte leicht zu programmieren sein. {-------------------------------------------------------------------------} uses SysUtils; procedure Entschuldigung(L_Name:string); begin writeln('Entschuldigung'); writeln; writeln('Sehr geehrte(r) Frau/Herr ',L_Name,','); writeln('Ich konnte nicht an Ihrem Unterricht teilnehmen, '); writeln('da ich mit einer schweren Lernstoerung im Bett lag.'); writeln('Mit freundlichen Gruessen,'); writeln('(Jetzt hab ich doch gerade meinen Namen vergessen)'); end; {----------------------------} {--- Beginn Hauptprogramm ---} {----------------------------} var Lehrername:string; begin writeln; writeln('Dieses Programm schreibt eine Entschuldigung auf den Bildschirm.'); writeln('Der Lehrername, den der Benutzer eingibt, wird dazu verwendet.'); writeln; write('Geben Sie den Lehrernamen an: '); readln(Lehrername); writeln; Entschuldigung(Lehrername); readln; end.