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.