Program to print out the largest of 3 numbers

	program largeof3;
	var
		x, y, z: integer;
	begin
	writeln('x?');
	readln(x);
	writeln('y?');
	readln(y);
	writeln('z?');
	readln(z);
	if x > y then
		begin
		if z > x then
			begin
			writeln('largest is ', z);
			end
		else
			begin
			writeln('largest is ', x);
			end;
		end
	else
		begin
		if z > y then
			begin
			writeln('largest is ', z);
				end
		else
			begin
			writeln('largest is ', y);
			end;
		end;
	readln;
	end.

Sample output
>x?
<13
>y?
<45
>z?
<22
>largest is 45


Program to convert English word to "piglatin".  Note that compound
statements with single statement have been simplified.  Watch out
for the semicolons!

	program piglatin;
	var
		vowel, first, word, pigl: string;
	begin
	
	{leave space}
	
	vowel := 'not';
	writeln('Enter English word.');
	readln(word);
	first := copy(word,1,1);
	IF first = 'a' then
		vowel := 'yes';
	if first = 'e' then
		vowel := 'yes';	 
	if first = 'i' then     
		vowel := 'yes';
	if first = 'o' then
		vowel := 'yes';  
	if first = 'u' then     
		vowel := 'yes';
	if vowel = 'yes' then 
		pigl := copy(word,2,length(word)-1)+first+'way'
	else
		pigl := copy(word,2,length(word)-1)+first+'ay';
	writeln(word, ' becomes ', pigl);
	
	{leave space}
	
	readln;
	end.
	
Sample output

>Enter English word.
<either
>either becomes ithereway


Program to convert English word to "piglatin".  Here the five if
statements to determine if first letter is a vowel have been
replaced by the use of the pos function.


	program piglatin;
	var
		vowel, first, word, pigl: string;
	begin
	
	{leave space}
	
	vowel := 'not';
	writeln('Enter English word.');
	readln(word);
	first := copy(word,1,1);
	if pos(first,'aeiou') > 0 then
		vowel := 'yes';
	if vowel = 'yes' then 
		pigl := copy(word,2,length(word)-1)+first+'way'
	else
		pigl := copy(word,2,length(word)-1)+first+'ay';
	writeln(word, ' becomes ', pigl);
	
	{leave space}
	
	readln;
	end.
	

Sample output

>Enter English word.
<teacher
>teacher becomes eachertay