PROGRAM ONE

Determine the output of the following program 

	program  function_time (input, output);
	const    maxsize = 80;
	type     line = packed array[1..maxsize] of char;

	function COUNTLETTERS ( words : line) : integer; {returns an integer}
	var      loop_count : integer;                   {local variable}
	begin
	      loop_count := 1;
	      while (words[loop_count] <> '.') and (loop_count <= maxsize) do
		      loop_count := loop_count + 1;
	      COUNTLETTERS := loop_count - 1
	end;

	var   oneline : line;
	      letters : integer;
	begin
	      writeln('Please enter in a sentence terminated with a .');
	      readln( oneline );
	      letters := COUNTLETTERS( oneline );
	      writeln('There are ',letters,' letters in that sentence.')
	end.




PROGRAM TWO

Write a program to calculate the cube of a given number (answer = number*number*number). Use a 
function to calculate the cube. 


PROGRAM THREE

Use function to write a program tha calculate the power of number1 to the power of number2, where 
number1 and number2 are two integer numbers input.
   The answer should be stored on a variable result and output on the screen.


PROGRAM FOUR

program ARRAY_TEST (output);
	var     numbers : ARRAY [1..5] of integer;
	begin
	     numbers[1] := 7;
	     numbers[2] := 13;
	     numbers[3] := numbers[2] - 1;
	     numbers[4] := numbers[3] DIV 3;
	     numbers[5] := numbers[3] DIV numbers[4];
	     for loop := 1 to 5 do
	        writeln('Numbers[',loop,'] is', numbers[loop] )
	end.


PROGRAM FIVE

Given the following marks achieved in a programming test, and that the pass mark is the average of all 
the marks, write a program to list those students who have passed. 
 FRED		21	GEORGE		56
 ANNE		52	MARY		89
 ROBERT		71	ALFRED		71
 CECIL		33	MIKE		54
 JENNIFER  	41	PAULINE		48