составьте программу на языке паскаль которая будет запрашивать курс доллара и печатать таблицу перевода 1 2 3...n доллара в рубли

Vari,n:integer; k:real;BeginWrite('Введите текущий курс доллара ');Readln(k);Write('Введите количество долларов ');Readln(n);if n>0 thenfor i:= 1 to n do  writeln(i,' долларов = ',i*k,' рублей!')elsewrite('Повторите программу с другим количеством долларов');End.