Question

даю 100 баллов (отмечу лучшим)

ввести натуральное число вывести квадраты и кубы всех чисел от 1 до этого числа


на паскале пожалуйста


пример:

1: 1 1

2: 4 8

3: 9 27

Answer 1

program N_1;

uses crt;

var a,a2,a3:integer;

begin

writeln ('Введите натуральное число');

readln (a);

a2:= sqr(a);

a3:=a*a*a;

writeln (a, ': ', a2, '  ', a3);

end.