PROGRAM  Average_5;

Var    sum , N, data : integer;

         average : real;

BEGIN

Write(‘The program will calculate the average of ’);

Writeln(‘ five integers you enter through the keyboard …’);

Writeln;

sum := 0;

N := 1;

WHILE  N <= 5 DO

      Begin

               Write(‘Please enter the number : ’);

               Readln(data);

               sum := sum + data;

                N := N+1;

       End;

Average := sum / 5;

Write(‘The average of five numbers is ’, Average:6:2);

END.

END.