输入某个数字x，输出他的绝对值，是pascal程序，帮我编一下

program a;
var
x:double;
begin
readln(x);
writeln(abs(x));
end.
1、可因数据要求将x定为longint(长整型）整数或double（双精度）实数
2、abs(x) 为取绝对值函数

var a:longint;
begin
readln(a); writeln(abs(a)); readln;
end;

var
n:longint;
begin
readln(n);
writeln(abs(n)); //abs为绝对值涵数
end.