Untitled

PROGRAM Vollname;

VAR Vorname, Nachname, Eingabe: String;
response:char;

BEGIN

 repeat

 writeln('enter firstname');
 readln(vorname);

 writeln('enter surname');
 readln(nachname);

 writeln('Enter something else');
 readln(eingabe);

 writeln('Would you like to go again [repeat] j/n');
 readln(response);

 until (response = 'n');
writeln('thanks for using my program');


end.