ИНФОРМАТИКА, ЦИКЛ С ПРЕДУСЛОВИЕМ помогите Ввести натур.число, вывести квадраты и кубы...

Question

ИНФОРМАТИКА, ЦИКЛ С ПРЕДУСЛОВИЕМ помогите Ввести натур.число, вывести квадраты и кубы всех чисел от 1 до этого числа. Пример: 4 1: 1 1 2: 4 8 3: 9 27 4: 16 64

Answer 1

var N,i:integer;

BEGIN

readln(N);

i:=1;

while i

writeln(i,': ',sqr(i),' ',power(i,3));

i:=i+1;

end;

end.