Помогите написать программу!!!

В FreePascal:

• Без массива используя While:

var
   i:byte;
   S,n,m:real;
begin
   i:=0;
   S:=0;
   while i<10 do
   begin
      i:=i+1;
      write('Введите ',i,'-е число: ');
      readln(n);
      S:=S+n;
   end;
   writeln(i);
   m:=S/i;
   writeln('Среднее арифметическое введенных чисел: ',m:4:2);
   readln;
end.

• Без массива используя Repeat:

var
   i:byte;
   S,n,m:real;
begin
   i:=0;
   S:=0;
   repeat
   begin
      i:=i+1;
      write('Введите ',i,'-е число: ');
      readln(n);
      S:=S+n;
   end;
   until i=10;
   m:=S/i;
   writeln('Среднее арифметическое введенных чисел: ',m:4:2);
   readln;
end.