Квадраты и кубы.

[Renge]

Program K6_2;
Uses CRT;
VAR
  h, n : word;
  f : real;
BEGIN
  Repeat
    ClrScr;
    WriteLn('Найти наименьшее натуральное число, которое после умножения');
    WriteLn('на 2 становится квадратом, а после умножения на 3 - кубом.');
    h:=0;
    Repeat
    h:=h+1;
    f:=h/3;
    n:=f*2;
    Until Frac(SQRT(n))=0;
    write ('Это число ', f, '.');
    GoToXY(15,WhereY+2);
    Write('Нажми любую клавишу для повторения, Esc - для выхода');
  Until ReadKey=#27;
END.

Проблема в том, что выдается не то число. И я понимаю почему, оно ведь подходит. Но я вообще не знаю как ее написать чтобы показывало правильно, 72, которое, кажется, и требуется.

[_-Re@l-_]

А можно услышать условие задачи? А то как-то не очень понятно.

[Renge]

Там прямо в программе написано, нас заставляют выводить о_О
Найти наименьшее натуральное число, которое после умножения на 2 становится квадратом, а после умножения на 3 - кубом.

[_-Re@l-_]

Код на Delphi:

uses Math,...;

var
    a:Integer;
begin
        a:=2;
        while (frac(sqrt(a))<>0) do
        begin
                if frac(power(a*3,1/3)) = 0 Then
                Break
                Else a:=a*2;
        end;
        write(a);
        readln;
end.

Ну, как-то так. Не знаю, правильно ли.

[Renge]

Это ужасно, но я еще не знаю, что такое Power и Break и работаю в паскале. Без этого никак?*