{* Целая часть и остаток от деления *}

Unit N1;
Interface
Implementation
Begin
 writeln('В данной программе производится ввод 2-х целых чисел пользователем с клавиатуры и вычисление остатка от деления и целой части.');
End.

Program n1;

Uses n1.pas; {* Эту строку можно удалить *}
{название программы}
{Задача.Запросить у пользователя 2 числа и вывести на          экран таблицу.}
Uses Crt; {подключение модуля crt}
Var {* В работе нам потребуются переменные: *}
  x : integer;
  y : integer;
Begin
  ClrScr; {очистка экрана}
  Write ('Введите число x '); {вывод сообщения}
  ReadLn (x); {ввод значения x}
  Write ('Введите число y '); {вывод сообщения}
  ReadLn (y); {ввод значения y}
  ClrScr; {очистка экрана}
  WriteLn (' ************************* '); {оформление вывода}
  WriteLn (' * x * y * Div * Mod * '); {оформление вывода}
  WriteLn (' ************************* '); {оформление вывода}
  WriteLn (' * ', x : 4, ' * ', y : 4, ' * ', x Div y : 4, ' * ', x Mod y : 4, ' * '); {вывод значений}
  WriteLn (' ************************* '); {оформление вывода}
  ReadKey; {задержка экрана}
End.