Помогите пожалуйста с паскалем.Вывести квадраты и кубы чисел от a до b.
Пример:
Введите границы интервала
4 6
4 16 64
5 25 125
6 36 216
var
i,m,n: longint;
begin
write(Введите через пробел границы интервала: );
readln(m,n);
for i:=m to n do
writeln(i, ,i*i, ,i*i*i);
end.
Оцени ответ
