Произведение и частное двух чисел.

var
  a, b: integer;
begin
  writeln('Введите два целых числа: ');
  readln(a, b);
  writeln('Произведение: ', a * b);
  if b <> 0 then writeln('Частное: ', a div b)
  else writeln('Ошибка: деление на 0')
end.

var
  a, b: integer;
begin
  writeln('Введите два целых  трёхзначных числа: ');
  readln(a, b);
  if (abs(a) >= 100) and (abs(a) <= 999) and (abs(b) >= 100) and (abs(b) <= 999) then
    begin
      writeln('Произведение: ', a * b);
      writeln('Частное: ', a div b)
    end
  else writeln('Ошибка: одно из чисел не трёхзначное')
end.

var
  a, b: integer;
begin
  writeln('Введите два целых  трёхзначных числа: ');
  readln(a, b);
  if (a mod 2 = 0) and (b mod 2 = 0) then
    begin
      writeln('Произведение: ', a * b);
      if b <> 0 then writeln('Частное: ', a div b)
      else writeln('Ошибка: деление на 0')
    end
  else writeln('Ошибка: одно из чисел не чётное')
end.

var
  a, b: integer;
begin
  writeln('Введите два целых  трёхзначных числа: ');
  readln(a, b);
  if (a mod 2 = 0) and (abs(a) >= 100) and (abs(a) <= 998) and
     (b mod 2 = 0) and (abs(b) >= 100) and (abs(b) <= 998) then
    begin
      writeln('Произведение: ', a * b);
      if b <> 0 then writeln('Частное: ', a div b)
      else writeln('Ошибка: деление на 0')
    end
  else writeln('Ошибка: одно из чисел не трёхзначное или не чётное')
end.