{* Задача 558 *}

Unit ZADACH558;
Interface
Implementation
Begin
 writeln('Масса молекул кислорода в организме человека составляет 65% от его массы. Составьте программу для определения массы молекул кислорода в организме человека.');
End.

Program zadach558;

Uses zadach558.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  ves : real;
  m   : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('ves=');
  read(ves);
  m := ves * 0.65;
  writeln('Масса молекул кислорода ', m : 2:1, ' кг.');
  readkey; {* Нажмите любую клавишу *}
End.