Помогите срочно пожалуйста В стране кризис... цены скачут... Утром текущего дня цена...

Question

Помогите срочно пожалуйста
В стране кризис... цены скачут... Утром текущего дня цена плитки шоколада составляля P грв, но к вечеру его цена упала на 10%. За ночь котировки акций изменились и на утро следующего дня пришлось повысить цену на плитку шоколада на те же 10%. Сколько теперь стоит плитка шоколада?
Входные данные:
Во входном потоке задана цена плитки шоколада - вещественное число P.

Выходные данные:
Вывести единственное вещественное число с точностью два знака после запятой - нувую цену плитки шоколада.

Пример входного файла (input.txt):
10

Answer 1

var
  p, r: real;
  f: Text;

begin
  Assign(f, 'input.txt');
  Reset(f);
  read(f, p);
  Close(f);
  r := p - 0.1 * p;
  r := r + 0.1 * r;
  writeln(r:0:2)
end.

Тестовое решение:

9.90