{* Задача 548 *}

Unit ZADACH548;
Interface
Implementation
Begin
 writeln('В школьном коридоре длиной 56 м нужно выкрасить пол. Выкрасив часть коридора длиной 22 м, израсходовали А кг краски. Сколько еще нужно краски, докрасить коридор?');
End.

Program zadach548;

Uses zadach548.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  a : real;
  v : real;
Begin
  clrscr; {* Очищаем экран *}
  write('a=');
  read(a);
  v := (56 - 22) * a/22;
  write(v : 2:3, '  кг.');
  readkey; {* Ждем нажатия пользователя *}
End.