Question

Ввести а и б и вывести квадраты и кубы чисел от а до б Пример: Введите границы интервала: 4 6 4: 16 64 5: 25 125 6: 36 216

Answer 1

Var
a, b: integer;
begin
write('граница а? ');
readln(a);
write('граница б? ');
readln(b);
for var i:=a to b do
writeln(i, ': ', sqr (i), ' ', i*i*i);
end.