Developing.ru

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

var a: real;

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

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