PROGRAM AUSGABE (INPUT,OUTPUT);¢¢(* DIESES PROGRAMM GIBT EINE BESTIMMTE ANZAHL ZEICHEN AUS .*)¢¢VAR X:CHAR; (* ZEICHEN *)¢ Y:INTEGER; (* ANZAHL *)¢¢PROCEDURE AUSGABE (A:CHAR;B:INTEGER);¢¢ (* PROZEDUR MIT PARAMETER- UEBERGABE. *) ¢¢VAR C:INTEGER;¢¢BEGIN¢FOR C:=1 TO B DO WRITE(A)¢END;¢¢BEGIN¢¢WRITELN('Eingabe des Zeichens.');¢READLN(X);¢WRITELN('Eingabe der Anzahl.');¢READLN(Y);¢AUSGABE (X,Y) (* X UND Y WERDEN AN A UND B UEBERGEBEN. *)¢END.¢
