program delitene; {nazov programu. program sa musi nejako volat}
var a, b : integer; {povie PC, aby mu dal dost pamate na 2 cele cisla a,b}
 
{defincia funkcie. Berie vstup, 2 cisla a,b a vrati ich sucet}
function jeDelitelne(a, b: integer) : boolean;
begin
    {funkcia vracia hodnotu nazov funkcie := hodnota.
    V tomto riadku vrati hodnotu true alebo false, ak
    je cislo a nasobkom cisla b, teda ci je a delitelne
    cislo b bezozvysku. operator mod je celociselne delenie}
    jeDelitelne := a mod b = 0;
end;
 
{zacina hlavny program}
begin
    write('Zadajte, prosim, 2 cele cisla: '); {toto vypise a kurzor ostane na tom istom riadku}
    readln(a,b); {tu nacita 2 cisla do pismeniek (premennnych, nieco ako x v matematike)}
    {podmienkovy vyraz, vyuziva definovanu funkciu. Zavola sa funkcia jeDelitelne so vstupom
    dva cele cisla a nahradi sa jej vysledkom, v tomto pripade true alebo false}
    if jeDelitelne(a,b) = true then
        writeln('Cislo ', a, ' je delitene cislom ',b)
    else
        writeln('Cislo ', a, ' nie je delitene cislom ',b);
end.

cHJvZ3JhbSBkZWxpdGVuZTsge25hem92IHByb2dyYW11LiBwcm9ncmFtIHNhIG11c2kgbmVqYWtvIHZvbGF0fQp2YXIgYSwgYiA6IGludGVnZXI7IHtwb3ZpZSBQQywgYWJ5IG11IGRhbCBkb3N0IHBhbWF0ZSBuYSAyIGNlbGUgY2lzbGEgYSxifQoKe2RlZmluY2lhIGZ1bmtjaWUuIEJlcmllIHZzdHVwLCAyIGNpc2xhIGEsYiBhIHZyYXRpIGljaCBzdWNldH0KZnVuY3Rpb24gamVEZWxpdGVsbmUoYSwgYjogaW50ZWdlcikgOiBib29sZWFuOwpiZWdpbgogICAge2Z1bmtjaWEgdnJhY2lhIGhvZG5vdHUgbmF6b3YgZnVua2NpZSA6PSBob2Rub3RhLgogICAgViB0b210byByaWFka3UgdnJhdGkgaG9kbm90dSB0cnVlIGFsZWJvIGZhbHNlLCBhawogICAgamUgY2lzbG8gYSBuYXNvYmtvbSBjaXNsYSBiLCB0ZWRhIGNpIGplIGEgZGVsaXRlbG5lCiAgICBjaXNsbyBiIGJlem96dnlza3UuIG9wZXJhdG9yIG1vZCBqZSBjZWxvY2lzZWxuZSBkZWxlbmllfQogICAgamVEZWxpdGVsbmUgOj0gYSBtb2QgYiA9IDA7CmVuZDsKCnt6YWNpbmEgaGxhdm55IHByb2dyYW19CmJlZ2luCiAgICB3cml0ZSgnWmFkYWp0ZSwgcHJvc2ltLCAyIGNlbGUgY2lzbGE6ICcpOyB7dG90byB2eXBpc2UgYSBrdXJ6b3Igb3N0YW5lIG5hIHRvbSBpc3RvbSByaWFka3V9CiAgICByZWFkbG4oYSxiKTsge3R1IG5hY2l0YSAyIGNpc2xhIGRvIHBpc21lbmllayAocHJlbWVubm55Y2gsIG5pZWNvIGFrbyB4IHYgbWF0ZW1hdGlrZSl9CiAgICB7cG9kbWllbmtvdnkgdnlyYXosIHZ5dXppdmEgZGVmaW5vdmFudSBmdW5rY2l1LiBaYXZvbGEgc2EgZnVua2NpYSBqZURlbGl0ZWxuZSBzbyB2c3R1cG9tCiAgICBkdmEgY2VsZSBjaXNsYSBhIG5haHJhZGkgc2EgamVqIHZ5c2xlZGtvbSwgdiB0b210byBwcmlwYWRlIHRydWUgYWxlYm8gZmFsc2V9CiAgICBpZiBqZURlbGl0ZWxuZShhLGIpID0gdHJ1ZSB0aGVuCiAgICAgICAgd3JpdGVsbignQ2lzbG8gJywgYSwgJyBqZSBkZWxpdGVuZSBjaXNsb20gJyxiKQogICAgZWxzZQogICAgICAgIHdyaXRlbG4oJ0Npc2xvICcsIGEsICcgbmllIGplIGRlbGl0ZW5lIGNpc2xvbSAnLGIpOwplbmQu