Ввести с клавиатуры два числа. Проверить, равно ли второе число нулю. Если да, то вывести на экран фразу: «На ноль делить нельзя!» Если нет, то найти их частное.

readln(a,b); if (b == 0) then writeln( 'Делить на 0 нельзя' ) else writeln( 'Частное: ', a div b );