{* Сумма, разность, произведение и частное *}

Unit CHESLA;
Interface
Implementation
Begin
 writeln('Даны два ненулевых целых числа. Найти их сумму, разность, произведение и частное.');
End.

Program pas99929;

Uses chesla.pas; {* Эту строку можно удалить *}
Даны два ненулевых целых числа.  Найти их разность, сумму, произведение и частное}
Var {* В работе нам потребуются переменные: *}
  a : integer;
  b : integer;
Begin
  While (a = 0) Or (b = 0) Do
  Begin
    writeln('Введите 2 ненулевых числа:');
    readln(a, b);
  End;
  writeln; {* Вывод пустой строки *}
  writeln('Сумма: ', a + b);
  writeln('Разность: ', a - b);
  writeln('Произведение: ', a * b);
  writeln('Частное: ', a / b);
  readln; {* Приостановка программы. Ожидание Enter *}
End.