PROGRAM Vollname;               
USES Crt;                        
VAR Vorname, Nachname, Eingabe: String;   

BEGIN
ClrScr;                         
TextColor (11);                  
TextBackground (1);              
WriteLn ('Wollen Sie wissen wir Ihr vollst„ndiger Name lautet?(J/N): ');
Readln (Eingabe);
IF (Eingabe=J) then
BEGIN
Writeln ('Bitten geben Sie Ihren Vornamen ein!: ');         
ReadLn (Vorname);                                        
Write ('Ok Vielen Dank! Nun geben Sie Ihren Nachnamen ein!: '); 
ReadLn (Nachname);                                       
Write ('Danke! Ihr vollst„ndiger Name lautet:... ' ,Vorname);   
Write (' ' ,Nachname);  
END
ELSE
BEGIN
Writeln ('Dann drcken Sie jetzt eine Taste um, dass Programm zu schlieáen denn es is nur dazu da um den vollst„ndigen Namen anzuzeigen');
END;
Writeln ('Tschs');
ReadKey;
END.