delphi neumim takze jen pseudo-kod:
je_to_aritmeticka_rada=1
nacti_cislo(cislo1)
macti_cislo(cislo2)
konstanta1=cislo2-cislo1
cislo1=cislo2
dokud(je_to_aritmeticka_rada rovna se 1)
cyklus:
nacti_cislo(cislo2)
konstanta2=cislo2-cislo1
kdyz(konstanta2 se nerovna konstanta1) pak je_to_aritmeticka_rada=0
konstanta1=konstanta2
cislo1=cislo2
konec cyklu
kdyz(je_to_aritmeticka_rada rovna se 1) vytiskni("ano, je to aritmeticka rada")
jinak vytiskni("ne, neni to aritmeticka rada")