Программа на турбо паскале

[Artur88]

У меня очень хорошая знакомая попросила помочь написать задачу которую в школе задали, а я сам знаю тока школьный шкурс информатики (и то мы паскал два года назад проходили) и сейчас вспомнить как написать не могу; былоб время поковырялся бы сам что-нибудь написал бы а тут срочно надо

если кому не сложно можите помочь (задача на уровне 9 класса средней школы) ?

Вот условие

Составить программу определяющую является ли число A делителем числа B

[Kuzmich]

if (b mod a=0) then Writeln("Является") else Writeln("Не является");