PASCAL: AN INTRODUCTION

PROGRAM SEVEN
Modify the program you wrote for program six, to accept three values, A B C, and print the largest value.


	program prog7 ( input, output );
	var  A, B, C : integer;
	begin
	     writeln('Please enter three numbers seperated by spaces');
	     readln( A, B, C );
	     if A >= B then
	     begin
	        if A >= C then writeln( A,' is the largest')
	        else writeln( C,' is largest')
	     end
	     else
	     if B >= C then writeln( B,' is the largest')
	     else writeln( C,' is the largest')
	end.