Нужна блок схема к этой задаче.
Составить программу вычисления двузначного числа, сумма кубов цифр которого равна n.
Var
a,b,k:byte;
n:integer;
Begin
Write('n = ');ReadLn(n);
k:=0;
For a:= 1 to 9 do
For b:= 0 to 9 do
if a*a*a+b*b*b = n then
Begin
Write(a,b,' ');
k:=k+1
End;
if k = 0 then Write('Таких чисел не существует.')
End.

Спасибо огромное) Обе программы были хороши. но на обе поставить лучшая нельзя. а выбрал эту потому что она больше подходит по техзаданию. но вторая понравилась мне лично по написанию. Еще раз всем спасибо за помощь.

"Вторая" написана так, как надо писать в 2017 году, используя современные идеи и технологии программирования, а первая - в канонах программирования, введенных Н.Виртом и реализованных в языке ТурбоПаскаль в 1983 году. Все-таки 34 года разницы...

Но, к сожалению, учителя в большинстве школ еще сами не готовы воспринимать (и, тем более, обучать) работать с применением современных технологий программирования, поэтому и имеем то, что имеем - обучение на том, что уже никому не интересно и не нужно.