Составить программу на языке Pascal с while! Составить программу, которая подсчитывает средний рост 5 учащихся

Помогите пожалуйста составить программу на языке Pascal с while! Составить программу, которая подсчитывает  средний рост 5 учащихся.

  • i:=1; 
    while i < 11 do 
    begin 
    writeln(i); 
    inc(i); 
    end; 

    i:=1; 
    while i < 11 do 
    begin 
    writeln(i,' ', i*i, ' ', i*i*i); // можно поменять на pow(i,3) 
    inc(i); 
    end; 

    i:=10; 
    while i < 21 do 
    begin 
    if i mod 2 = 0 then // либо if i and 1 = 0 then 
    writeln(i); 
    inc(i); 
    end;

Внимание, только СЕГОДНЯ!