Question

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

Answer 1

program lol;
var a,b:integer; c : real;
begin
readln(a,b);
if(a = 0) or (b = 0) then writeln('NO')
else
begin
c:= a / b;
writeln(c);
end;
 readln;
end.