Pascal program to find the average of numbers using WHILE DO structure

To calculate the sum and average of three different numbers. You can edit the loop and the average formula to repeat it as many times as you'd like.
Program untitled;
var
sum, ave, n : real;
i : integer;
begin
sum := 0;
i := 1;
while i <=3 do
begin
writeln ('enter your numbers');
readln (n);
sum := sum + n;
ave := sum / 3;
i := i + 1 ;
end;
writeln (ave);
readln;
end.

Author:

Tech blogger, SEO expert, cryptocurrency enthusiast, and freelancer are the terms that describe me. I'll rather write a thousand words than speak hundred words, and that describes my passion as a content creator.