Question

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

Answer 1

var
  a, b : Integer;
begin
    Write('Введите a: ');
    Readln(a);

    Write('Введите b: ');
    Readln(b);

    if b = 0 then Writeln('На ноль делить нельзя!') else Writeln(a div b);
end.