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

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

Код:

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.