Turbo Pascal- ošetření NULY

Zdarvím lidi. Při ukolu do školy jsem narazil na takový problé dělení nulou. Už hodněkrát jsem ošetřoval nulu, ale ted mě to nějak nefunguje a nevim co s tím. Dělám do školy takovou primitivní kalkulacku a nevím jak udělat příkaz aby při dělení nulou to napsalo např. nulou nelze dělit. Zdehttp://img130.imageshack.us/img130/111/beznzvunw.png je ta kalkulačka a podtrhlý příkaz který bych potřaboval ošetřit. Konkrétně to B. Díky.

if c=3 then
if b=0 then
writeln("Nulou nelze dělit")
else
writeln(a/b);

Jestli mám dobře středníky a závorky už si nepamatuju, přece jen je to moc dávno, co jsem Pascal používal, ale to si doplníš.

if c=3
{
if b=0 {tohle_se_nesmi}
else {a/b}
}