program CurrencyConverter; { 1. Заголовок программы с точкой с запятой }
 
uses
  Crt; { 2. Подключение модуля управления экраном }
 
const
  rate = 92.50; { 3. Секция констант (фиксированный курс доллара) }
 
var
  usd, rub: real; { 4. Секция объявления вещественных переменных }
 
begin { 5. Старт исполняемого блока }
  ClrScr; { Очищаем экран консоли от старого текста }
 
  { Шаг А: Сначала вежливо просим пользователя ввести сумму }
  write('Введите сумму в долларах ($): ');
  readln(usd); { Ждем ввода числа с клавиатуры }
 
  { Шаг Б: Только ПОСЛЕ ввода производим математический расчет! }
  rub := usd * rate;
 
  { Шаг В: Выводим результат с форматированием до 2 знаков после запятой }
  writeln('Итоговая сумма в рублях: ', rub:0:2, ' руб.');
 
  writeln('Нажмите Enter для выхода...');
  readln; { Задержка экрана перед закрытием программы }
end. { 6. Финальная точка завершения программы! }
 

cHJvZ3JhbSBDdXJyZW5jeUNvbnZlcnRlcjsgeyAxLiDQl9Cw0LPQvtC70L7QstC+0Log0L/RgNC+0LPRgNCw0LzQvNGLINGBINGC0L7Rh9C60L7QuSDRgSDQt9Cw0L/Rj9GC0L7QuSB9Cgp1c2VzCiAgQ3J0OyB7IDIuINCf0L7QtNC60LvRjtGH0LXQvdC40LUg0LzQvtC00YPQu9GPINGD0L/RgNCw0LLQu9C10L3QuNGPINGN0LrRgNCw0L3QvtC8IH0KCmNvbnN0CiAgcmF0ZSA9IDkyLjUwOyB7IDMuINCh0LXQutGG0LjRjyDQutC+0L3RgdGC0LDQvdGCICjRhNC40LrRgdC40YDQvtCy0LDQvdC90YvQuSDQutGD0YDRgSDQtNC+0LvQu9Cw0YDQsCkgfQoKdmFyCiAgdXNkLCBydWI6IHJlYWw7IHsgNC4g0KHQtdC60YbQuNGPINC+0LHRitGP0LLQu9C10L3QuNGPINCy0LXRidC10YHRgtCy0LXQvdC90YvRhSDQv9C10YDQtdC80LXQvdC90YvRhSB9CgpiZWdpbiB7IDUuINCh0YLQsNGA0YIg0LjRgdC/0L7Qu9C90Y/QtdC80L7Qs9C+INCx0LvQvtC60LAgfQogIENsclNjcjsgeyDQntGH0LjRidCw0LXQvCDRjdC60YDQsNC9INC60L7QvdGB0L7Qu9C4INC+0YIg0YHRgtCw0YDQvtCz0L4g0YLQtdC60YHRgtCwIH0KCiAgeyDQqNCw0LMg0JA6INCh0L3QsNGH0LDQu9CwINCy0LXQttC70LjQstC+INC/0YDQvtGB0LjQvCDQv9C+0LvRjNC30L7QstCw0YLQtdC70Y8g0LLQstC10YHRgtC4INGB0YPQvNC80YMgfQogIHdyaXRlKCfQktCy0LXQtNC40YLQtSDRgdGD0LzQvNGDINCyINC00L7Qu9C70LDRgNCw0YUgKCQpOiAnKTsKICByZWFkbG4odXNkKTsgeyDQltC00LXQvCDQstCy0L7QtNCwINGH0LjRgdC70LAg0YEg0LrQu9Cw0LLQuNCw0YLRg9GA0YsgfQoKICB7INCo0LDQsyDQkTog0KLQvtC70YzQutC+INCf0J7QodCb0JUg0LLQstC+0LTQsCDQv9GA0L7QuNC30LLQvtC00LjQvCDQvNCw0YLQtdC80LDRgtC40YfQtdGB0LrQuNC5INGA0LDRgdGH0LXRgiEgfQogIHJ1YiA6PSB1c2QgKiByYXRlOwoKICB7INCo0LDQsyDQkjog0JLRi9Cy0L7QtNC40Lwg0YDQtdC30YPQu9GM0YLQsNGCINGBINGE0L7RgNC80LDRgtC40YDQvtCy0LDQvdC40LXQvCDQtNC+IDIg0LfQvdCw0LrQvtCyINC/0L7RgdC70LUg0LfQsNC/0Y/RgtC+0LkgfQogIHdyaXRlbG4oJ9CY0YLQvtCz0L7QstCw0Y8g0YHRg9C80LzQsCDQsiDRgNGD0LHQu9GP0YU6ICcsIHJ1YjowOjIsICcg0YDRg9CxLicpOwoKICB3cml0ZWxuKCfQndCw0LbQvNC40YLQtSBFbnRlciDQtNC70Y8g0LLRi9GF0L7QtNCwLi4uJyk7CiAgcmVhZGxuOyB7INCX0LDQtNC10YDQttC60LAg0Y3QutGA0LDQvdCwINC/0LXRgNC10LQg0LfQsNC60YDRi9GC0LjQtdC8INC/0YDQvtCz0YDQsNC80LzRiyB9CmVuZC4geyA2LiDQpNC40L3QsNC70YzQvdCw0Y8g0YLQvtGH0LrQsCDQt9Cw0LLQtdGA0YjQtdC90LjRjyDQv9GA0L7Qs9GA0LDQvNC80YshIH0K

NyAyMQoxIDIgNTQ3MTUyCjEgMyA1MDkxNTcKMSA0IDUzOTI4MgoxIDUgNTQxNjQ1ICAgICAgICAgCjEgNiA0NTg0MzMKMSA3IDM4NTE3M+KAqAoyIDMgMTMxNTI4CjIgNCA5MjczNQoyIDUgMTUwNTExCjIgNiA5NDQ0MAoyIDcgMTk0NTQyCjMgNCAyMTY2MDAKMyA1IDI3MjQwMQozIDYgMTU3MTc2CjMgNyAxMjQwNzcKNCA1IDU3Nzg1CjQgNiA5NzMyMwo0IDcgMjQyMjMyCjUgNiAxMzY2NjMKNSA3IDI4Mzg2Mgo2IDcgMTQ3NDI2

7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426