{* Определить делится ли число m нацело на n *}

Unit VET_2;
Interface
Implementation
Begin
 writeln('Определить делится ли число m нацело на n');
End.

Program vet_2;

Uses vet_2.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  n : integer;
  m : integer;
  y : integer;
Begin
  writeln('Vvedite m, n');
  readln(m, n);
  y := m Div n;
  If m Mod n = 0 Then
    writeln('y = ', y)
  Else writeln('m na n nacelo ne delitsia');
    readkey; {* Ждем нажатия любой клавиши *}
End.