Ввести с клавиатуры 2 числа. Напечатать их частное или сообщение "делить на ноль нельзя"

pascalABC

Program CrazyCoder;

var a, b: integer; c: real;

begin readln (a, b); if (a = 0) or (b = 0) then writeln ('Делить на ноль нельзя!') else begin c : = a / b; writeln (c); end; readln; end.