Домашнє завдання
Знайти і надрукувати всі трицифрові числа сума кубів яких рівна самому числу
доку
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c, i:integer;
begin
ListBox1.Clear;
for i:=100 to 999 do
Begin
а:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
if i=a*a*a + b*b*b + c**с
then ListBox1.Items.Add(IntToStr(i));
End;
end;
153, 370, 371, 407​

Немного не понял, упорядочить по возрастанию снизу вверх.  Если выводить будет не так то в этой строчке изменишь знак на '>'  if podarr[i] < podarr[i+1] then

program znanija_com;
const
n = 5;
m = 3;
type
  tArray = array[1..n, 1..m] of integer;
  tPodArray = array[1..n] of real;
var
  arr : tArray;
  podarr : tPodArray;
  i,j,sum : integer;
procedure swap(var x,y: real);
  var t: real;
begin
  t := x;
  x := y;
  y := t
end;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do begin
  sum:=0;
  for j:=1 to m do begin
    arr[i, j]:=random(10);
    write(arr[i, j], ' ');
    sum:=sum+arr[i, j]; 
  end;
  writeln();
  podarr[i]:=sum/m;
end;
for j:=1 to n-1 do
  for i:=1 to n-j do
    if podarr[i] < podarr[i+1] then
      swap(podarr[i],podarr[i+1]);
writeln('Результирующий массив:');
for i:=1 to n do
  writeln(podarr[i], ' ');
end.

QB7N 7 — WNR8M — 7G9PM — 9D8N6 — VCDQD

GHT5E — NGERS — NGTE0 — 98DNE — VBDSO

NGR89 — DNEK6 — JHI96 — 5KGuT — MUP5T

NR78E — VB69T — YzCQ7 — DSO5S — OS06S

RE686 — DC6WD — GVD76 — s7RT6 — N6GNT

SKT35 — 1SH7H — 2DIHV — 3FF7H — 25F73

123F5 — 5VJ6N — 4F6F3 — DGF53 — 64SGS

D5GUD — 6GK8F — EFU8D — RE5G5 — W4Y6G

RFHFR — 125G6 — 245F7 — 2TG78 — 12ED7

27H73 — B7YDS — 45FU8 — X5HF5 — 2SD57

2DTUI — 4GDFD — 43HGF — HFG65 — B475F

FDDF7 — S67HH — 4HGCX — F7UEC — 45EHG

ERG5G — CY7CS — FVI74 — D6RCF — THFRF

SDY4C — DGVC5 — CCY4X — 4GXBB — BVHVC

VHYJC — 35VJM — CY5EC — VJ6DF — Y4REG

RVHGD — 5GJGD — HRG6D — 5HDR4 — G45YH

4F6F3 — HRG6D — NR78E — VCDQD — VB69D

23TFG — BJDB5 — UIN5G — 65JCT — VJ7YG

VU6EV — IKYH5 — CY65W — VU6RV — 4FGUT

R4UYG — T5HCT — CUTIF — T8654 — V8547

5HCCY — UBVKU — 4D7OG — 457UD — 5TS67

46S78 — 6RJ84 — D7854 — U856N — 6I89C

47FJN — 4NBUV — MCFUU — DVBJD — 5YDBD

Это все ключи но их могли уже забрать по этому на до проверить)