Computers and Technology: "Sanjay sent 23 text messages on Monday, 25 on Tuesday and 40 on Wednesday."

"Develop an algorithm (pseudocode or flowchart) which accepts the number of text messages sent each day, and computes and outputs the average number of text messages sent daily. Remember that a fraction of a text message cannot be sent!
Also, show the answer in pascal code."

Please help me.
​

The algorithm:

Input days

sum = 0

for i = 1 to

   input text

   sum = sum + text

end for

average = sum/days

print average

The program in pascal:

var days, sum, text, i:integer;

var average : real;

Begin

    write ('Days: '); readln(days);

    sum:=0;

    for i := 1 to do

         write ('Text: ');  readln(text);  

         sum:=sum+text;

    end;

    average := (sum/days);

    writeln ('The average text is' , average);

End.

Explanation:

This declares all variables

var days, sum, text, i:integer;

var average : real;

This begins the program

Begin

This gets the number of days from the user

    write ('Days: '); readln(days);

Initialize sum to 0

    sum:=0;

This iterates through the days

    for i := 1 to do begin

This gets the text for each day

         write ('Text: ');   readln(text);  

This sums up the texts

         sum:=sum+text;

End loop

    end;

Calculate average

    average := (sum/days);

Print average

    writeln ('The average text is' , average);

End program

End.