Составить программу вычисления кубов чисел от 1 до 10

Question

Составить программу вычисления кубов чисел от 1 до 10

Answer 1

var a:integer;

begin

for a:=1 to 10 do

writeln(a,'^3=',sqr(a)*a);

end.

Answer 2

program c1;

var

a,k:integer;

begin 

writeln( ' Введите число в диапазоне от 1 до 10: ')

read(a);

if ((a<=10) and (a>=1)) then k:=a*a*a else write (' Введённое число не входит в диапазон чисел');

end.