Ошибка в программе(Pascal;Freepaslcal)

[Dikoobraz]

Вот не знаю как устранить ошибку.
Программа должна округлять число до определенного знака после запятой.

program okrugl;

Var a:real;
n:integer;

begin;
Writeln('Введите число');
Readln(a);
Writeln('Введите порядковый знак после запятой');
Readln(n);
a:=(a*(10^n) div 1) / (10^n);
Writeln(n);

end.

[Luuzuk]

10^n

Это не возведение в степень. "^" в паскале используется для совершенно других целей. Напишите функцию возведения числа в степень сами и используйте её

[BDA]

А если требуется только вывести округленное число, а не действительно округлить:

Var
  a: real;
  n: integer;

begin;
  Writeln('Введите число');
  Readln(a);
  Writeln('Введите порядковый знак после запятой');
  Readln(n);
  Writeln(a:0:n);
  readln;
end.