Вывести стоимость 1000 долларов в рублях - Turbo Pascal

Формулировка задачи:

1. Дана стоимость одного доллара в рублях (А рублей за доллар). Написать программу, которая выведет стоимость 1000 долларов, далее стоимость 900 долларов, 800 и т.д. до 100 долларов.

Решение задачи: «Вывести стоимость 1000 долларов в рублях»

Листинг программы

var a,i:integer;
begin
write('1$ - '); readln(a);
for i:=10 downto 1 do
witeln(i*100,'$=',I*100*a,' rub');
readln
end.

Объяснение кода листинга программы

Переменная a инициализируется значением 1.
Выводится строка 1$ - с помощью функции write.
Считывается значение переменной a с помощью функции readln.
Запускается цикл for со счетчиком i равным 10, и продолжается до тех пор, пока i меньше или равно 1.
На каждой итерации цикла выводится значение i*100 (рублей) и I*100*a (долларов), используя функцию witeln.
После завершения цикла выводится символ новой строки readln.
Конец программы.