Написать программу,которая запрашивает 2 целых числа и выводит их в частное.известно ,что на 0 делить нельзя.сделать проверку. например 1 число 6,2 число 2 6: 2=3

Var A,B: integer;
Begin
WriteLn('Введите число А');
Readln(A);
repeatWriteLn('Введите число B');
  Readln(B);
  if B=0 then writeln('Число B не может быть равно нулю, повторите ввод');
until not(b=0);
Writeln(A,'/',B,'=',A/B);
end.