Vývojový diagram pro algoritmus – Delphi – Fórum – Programujte.com

Zdravím potřeboval bych vyovový diagram pro tento příklad

Zde je program (konzolová aplikace):
Pro výpočet tvého příkladu stačí zadat: od čísla 100
do čísla 999
Nejsou ošetřeny špatné vstupy (písmena,desetinná a záporná čísla)

program ArmCisla;

{$APPTYPE CONSOLE}
uses SysUtils,Math;

var odc,doc,i,j,delka,zbytek,cislo : Integer;
sou,moc: Extended;

begin
Writeln(' Armstrongova cisla.');
Writeln(' -------------------');
Write(' Zadej od jakeho cisla: ');
Readln(odc);
Write(' Zadej do jakeho cisla: ');
Readln(doc);
Writeln;
Writeln(' Armstrongova od ',odc,' do ',doc,' jsou:');
Writeln;
for i := odc to doc do
begin
delka := Length(IntToStr(i));
cislo := i;
sou := 0;
for j := 1 to delka do
begin
zbytek := cislo mod 10;
cislo := cislo div 10;
moc := Power(zbytek,delka);
sou := sou+moc;
end;
if sou=i then
Writeln(' ',i);
end;
Readln;
end.

Dobrý den,
potřebovala bych tento příklad
Najdi všechna trojciferná Armstrongova čísla...
vůbečc si s tím nevím rady :-(
pomůže někdo?

To Hanka.
Víš ty vůbec co jsou to Armstrongova čísla?
Já myslím, že ne. Protože, kdybys věděla, tak bys hned viděla, že ten příklad nad tvým příspěvkem je
přesně to co se po tobě žádá.
Pokud to chceš zadávat natvrdo (3-místná čísla0, tak to ošetříš jednoduše
Vynecháš řádky:
Write(' Zadej od jakeho cisla: ');
Readln(odc);
Write(' Zadej do jakeho cisla: ');
Readln(doc);
Writeln;
a upravíš řádky
Writeln(' Armstrongova od ',odc,' do ',doc,' jsou:'); na
Writeln(' Třímístná Armstrongova čísla jsou:');
a for i := odc to doc do na
for i :=100 to 999 do
a v sekci var můžeš vynechat proměnné odc a doc