Напечатать таблицу соответствия для чисел ( в долларах) 1,2,3…20 США и Рубли — Pascal(Паскаль)

var
 r, d, kurs: integer;
begin
 kurs:=30;
  for d:=1 to 20 do
   begin
    r:=d*kurs;
    writeln(d,'$','   ',r, 'рублей');
   end;
end.