program AverageMK11
{program To work out the average of any amount of numbers};

uses wincrt;

var

numnum:integer;
num:real;
total:real;
count:integer;
more:string;
average:real;

begin
count:=1;
writeln ('Enter The Amount Of Numbers You Will Be Using ');
readln (numnum);
writeln ('Enter Your First Number ');
readln (num);
total:=num;

while count<numnum do
	begin
        count:=(count+1);
        writeln ('Enter your Next number ');
        readln (num);
        total:=(total+num);
        end;
average:=total/numnum;
writeln (' The Average Of These ',numnum,' numbers is ',average:3:2);
writeln ('Would You Like To Use This Program Again? Y or N ');
readln (more);
		While more='y' do
                begin
		count:=1;
		writeln ('Enter The Amount Of Numbers You Will Be Using ');
		readln (numnum);
		writeln ('Enter Your First Number ');
		readln (num);
		total:=num;

			while count<numnum do
			begin
        		count:=(count+1);
        		writeln ('Enter your Next number ');
        		readln (num);
        		total:=(total+num);
        		end;
		average:=total/numnum;
		writeln (' The Average Of These ',numnum,' numbers is ',average:3:2);
		writeln ('Would You Like To Use This Program Again? Y or N ');
		readln (more);
                end;
end.