Simplified car diagnosis program (first level of decision tree only):

	program cara;
	var
		response: string;
	begin
	writeln('Was your car running just before this?');
	readln(response);
	if response = 'yes' then
		begin
		writeln('Fuel problems are likely.');
		writeln('We will have to look at the gas gauge.');
		end
	else
		begin
		writeln('Electrical problems seem likely.');
		writeln('Let us check out the battery first.');
		end;
	readln;
	end.
	
Sample output:

>Was your car running just before this?
<no
>Electrical problems seem likely.
>Let us check out the battery first.