PROGRAM  Average_5;

Var    sum , N, data : integer;

         average : real;

(*  Declaration part*)

BEGIN

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

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

Writeln;

sum := 0;

N := 1;

(*  main program *)

(* output statement *)

(* assignment statement *)

WHILE  N <= 5 DO

      Begin

               Write(‘Please enter the number : ’);

               Readln(data);

               sum := sum + data;

                N := N+1;

       End;

(* while loop *)

(* input statement *)

(* end of while loop *)

Average := sum / 5;

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

END.

END.

(* end of program *)