Написать программу, нахождения наименьшего трехзначного числа, сумма кубов цифр которого равна 730 — Pascal(Паскаль)

uses crt;
var i,a,b,c:word;
begin
clrscr;
for i:=100 to 999 do
 begin
  a:=i div 100;
  b:=i div 10 mod 10;
  c:=i mod 10;
  if a*a*a+b*b*b+c*c*c=730 then
   begin
    write(i);
    break;
   end;
 end;
readln
end.

uses crt;
var i,j,k,s:integer;
    f:boolean;
begin
clrscr;
f:=true;
i:=1;
while (i<=9)and f do
 begin
  j:=0;
  while (j<=9)and f do
   begin
    k:=0;
    while (k<=9)and f do
     begin
      s:=i*i*i+j*j*j+k*k*k;
      if s=730  then
       begin
        write(i,j,k);
        f:=false;
       end;
      k:=k+1;
     end;
    j:=j+1;
   end;
  i:=i+1;
 end;
readln
end.