Помогите, пожалуйста, написать программу в Паскаль 


Напечатать таблицу перевода 1,2,…, 20 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры).

var a:array[1..20] of real;b:real;c:integer;beginwriteln('Введите курс доллара(в рублях)');readln(b);for c:=1 to 20 dobegina[c]:=c*b;writeln(c,'д = ',a[c],'руб');end;end.