{* Задача 559 *}

Unit ZADACH559;
Interface
Implementation
Begin
 writeln('В классе N учеников. После контрольной было получено: A - пятерок, B - четверок, C -троек. Найти процент троек, четверок и пятерок.');
End.

Program zadach559;

Uses zadach559.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  n : integer;
  a : integer;
  b : integer;
  c : integer;
Begin
  clrscr; {* Очищаем экран *}
  write('Количество учеников ');
  read(n);
  write('Количество пятерок ');
  read(a);
  write('Количество четверок ');
  read(b);
  write('Количество троек ');
  read(c);
  writeln('Троек ', c / n*100 : 2:1, ' процентов');
  writeln('Четверок ', b / n*100 : 2:1, ' процентов');
  writeln('Пятерок ', a / n*100 : 2:1, ' процентов');
  readkey; {* Ждем нажатия пользователя *}
End.