{* Задача 566 *}

Unit ZADACH566;
Interface
Implementation
Begin
 writeln('Известен плановый P и фактический F показатели выпуска продукции предприятием. Определить процент выполнения плана.');
End.

Program zadach566;

Uses zadach566.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  p : integer;
  f : integer;
Begin
  clrscr; {* Очищаем экран *}
  writeln('Показатель:');
  write('Плановый p=');
  read(p);
  write('Выполнено фактически f=');
  read(f);
  write('Процент выполнения  ', f / p*100 : 2:2, '%');
  readkey; {* Нажмите любую клавишу *}
End.