var a:integer;
begin
for a:=1 to 10 do
writeln(a,'^3=',sqr(a)*a);
end.
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.
