More complicated program to read in and print back out info:

	program snoop;

	var
		firstname, city:string;
	begin
	writeln('What is your first name?');
	readln(firstname);
	writeln('What city do you live in?');
	readln(city);
	writeln(firstname);
	writeln('lives in');
	writeln(city);
	writeln('What city were you born in?');
	readln(city);
	writeln(firstname);
	writeln('was born in');
	writeln(city);
	readln;
	end.

Note reuse of variabe city, note destinction between 'city' and city.

Sample output:

>What is your first name?
<Dietolf
>What city do you live in?
<Hillsborough
>Dietolf
>lives in
>Hillsborough
>What city were you born in?
<Berlin
>Dietolf
>was born in
>Berlin