Написать программу, которая вычисляет частное от деления двух чисел. - Pascal ABC

Формулировка задачи:

Написать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные, выдавать сообщение об этом. Заранее спасибо

Решение задачи: «Написать программу, которая вычисляет частное от деления двух чисел.»

Листинг программы

var
  n, m: integer;
begin
  repeat
    write('Введите n, m (m не равен 0): ');
    readln(n, m);
    if m = 0 then writeln('m не должен быть = 0, повторите ввод');
  until m <> 0;
  writeln('n/m = ',n/m:0:3);
  readln;
end.

Объяснение кода листинга программы

var n, m: integer; - объявление переменных n и m типа integer
repeat - начало цикла повторения
write('Введите n, m (m не равен 0): '); - вывод сообщения и ожидание ввода значений n и m
readln(n, m); - чтение введенных значений n и m
if m = 0 then writeln('m не должен быть = 0, повторите ввод'); - проверка условия и вывод сообщения при ошибке
until m <> 0; - условие окончания цикла повторения
writeln('n/m = ',n/m:0:3); - вывод результата деления n на m
readln; - ожидание нажатия клавиши для выхода из программы