[Bad_Programmer]

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

[ApxaHGe1]

Код:

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

дальше сам

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

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

Код:

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]

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