Первая - программа на языке Паскаль, вторая - блок-схема.
УДАЧИ!
Клацаешь на размер шрифта, стираешь и пишешь свой. Профит
var N,i:integer;
BEGIN
readln(N);
i:=1;
while i<=N do begin
writeln(i,': ',sqr(i),' ',power(i,3));
i:=i+1;
end;
end.
Блок-схема во вложении. Если нужен ввод элементов массива, то непосредственно перед ромбиком с if вставить ввод x[i,j]