{* Процентов числа n от числа m *}

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

Program proc_5;

Uses proc_5.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  k : byte;
  n : byte;
  x : real;
Function procent(n, m : byte) : real;
Begin
  procent := m * 100 / n;
End;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Vvedite chisla');
  readln(k, n);
  x := procent(k, n);
  writeln('x = ', x : 5 : 2);
  readkey; {* Нажмите любую клавишу *}
End.