Ввести с клавиатуры 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.