Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа. Free pascal

в таком случае таких чисел не существует

да, не существует

тип данных надо использовать не integer, а longint...

вне зависимости от типа таких чисел не существует

ну после цикла надо делать анализ на существование. в данном случае да, ответа нет...

var  a, s,d,ed, ost: integer;begina:=99;repeat   a:=a+1;  s:= a div 100;  ost:= a mod 100;  if ost>9 then   begin    d:= ost div 10 ;    ost:=ost mod 10;  end else d:= 0;  if ost<10 then ed:=ost; until (a<1000) and (a*a=((s+d+ed)*(s+d+ed)*(s+d+ed)));  writeln('это число: ',a:3);end.