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

uses crt;var a,b:real;beginread(a,b);if a=0 then write ('Na 0 delit nelzya')          else begin a:= a\b; write (a); end;end.