Помогите пожалуйста составить программу на языке Pascal с while! Составить программу,…

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;