составьте программку на языке паскаль которая будет запрашивать курс доллара и

Var
i,n:integer; k:real;
Begin
Write('Введите текущий курс бакса ');
Readln(k);
Write('Введите количество долларов ');
Readln(n);
if ngt;0 then
for i:= 1 to n do
  writeln(i,' баксов = ',i*k,' рублей!')
else
write('Повторите программку с другим количеством баксов');
End.