1. Написать программу, которая вычисляет частное двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), вы давать сообщение об ошибке. Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные, введенные пользователем, выделены полужирным шрифтом). Вычисление частного. Введите в одной строке делимое и делитель, затем нажмите.-> 12 ОВы ошиблись. Делитель не должен быть равен нулю.

program zz1;

var n, i:integer; / / вводим переменные целого типа

begin

writeln (' Вычисление частного: ');

write (' Введите в одной строке делимое и делитель, затем нажмите - > '); / / вводим с клавиатуры два числа через пробел

read (n, i);

if i = 0 then write (' Вы ошиблись. Делитель не должен быть равен нулю. ') / / проверяем, если второе число равно нулю, то выводим один ответ

else write (' Частное двух чисел = ', n/i); / / если второе число не равно нулю, то выводим другой ответ

end.