viết chương trình nhập một số từ bàn phím trị tuyệt đối của số đó

program tritd;

uses crt;

var n:integer;

begin

clrscr;

write(‘Nhap so: ‘);

readln(n);

write(‘Gia tri tuyet doi cua ‘,n,’ la: ‘);

if n>=0 then n:=n

else n:=-n;

write(n);

readln

end.