[Bad_Programmer]

Очень нужна помощь в решении задача на Делфи!Помогите плиз)))
Задача:
Создайте программу, которая выводит числа от 4 до 9 и рядом с каждым из них – его квадрат, куб. Ввод каждого числа осуществляется действием ввода, после которого программа и выводит заданное.
Заранее спасибо

[ApxaHGe1]

Код:

1 2 3 4 5 6 7 8 9

begin Writeln ('Enter number .. '); readln (i); begin n:=i*i; Writeln (IntToStr(i)+'          '+IntToStr(n)); readln; end; end.

дальше сам

[Страдалецъ]

Ну тогда уж лучше так:

Код:

1 2 3 4 5 6 7 8 9 10 11

Var i: Integer; begin  repeat   Write('Enter number [4-9] or 0 for exit: ');   readln(i);   case i   of 4..9: Writeln(IntToStr(i)+' '+IntToStr(i*i)+' '+IntToStr(i*i*i));      0: Exit;   end;  until False; end.

[Bad_Programmer]

Спасибо Всем!