{ project4.lpr
  Автор: <Фамилия И.О.>, группа <группа>
  Дата: <дата, чч/мм/гг>
  Учебная программа.    }

Program Project4;

var
  A, B, RMul, RDiv : Integer;

begin
  Write('Введите целое число A =>_');
  ReadLn(A);
  Write('Введите целое число B =>_');
  ReadLn(B);
  RMul := A*B;
  RDiv := A/B;
  WriteLn('Произведение A*B=', RMul);
  WriteLn('Частное A/B=', RDiv);
end.