Viết chương trình nhập vào từ bàn phím số thực X. a/ In ra số nguyên lớn nhất nhỏ hơn X. b/ In ra số nguyên nhỏ nhất lớn hơn X

program so_nguyen;

uses crt;

var x:real;

     n:integer;

begin

       clrscr;

       write(‘Nhap so thuc x: ‘);  readln(x);

       n:=trunc(x);

       if n>=x then n:=n-1;

       writeln(‘a. ‘,n);

       n:=trunc(x);

       if n<=x then n:=n+1;

       write(‘b. ‘,n);

       readln;

end.