Помогите решить задачу.Вывести число A. Вывести его модуль.

[eSeth]

Помогите решить задачу на паскале:
Вывести число A. Вывести его модуль.
Заранее спасибо!

[Newbie]

var a: real;

begin
readln(a);
writeln(a);
writeln(abs(a));
end.

стоит иногда открыть какую нить книжку прежде чем просить помощи на форуме помощи.