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

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