9ый класс. Заранее спасибо

procedure DashString(n: integer);

begin

 Print(-*n)

end;

begin

 var n := ReadInteger(Введите n:);

 DashString(n)

end.