Напечатать таблицу перевода информатика 9 класс 25 поинтов

1)
const d=100;
var a:1..20 ;
begin
Write('Введите кол-во долларов: '); readln(a);
Writeln('Кол-во рублей: ', a*d:0:2);
end.

2)
var a:1..20 ;
d:real;
begin
Write('Введите кол-во долларов: '); readln(a);
Write('Введите курс доллара: '); readln(d);
Writeln('Кол-во рублей: ', a*d:0:2);
end.