7.

uses crt;

var a:integer;

begin

clrscr;

write('nhap a: ');readln(a);

if (a mod 5 = 0) then write(a,' chia het cho 5')

else write(a,' khong chia het cho 5');

readln;

end.

8. 

uses crt;

var a:integer;

begin

clrscr;

write('nhap a: ');readln(a);

if (a < 50) then write(a,' la so hop le')

else write(a,' khong phai la so hop le');

readln;

end.

9.

uses crt;

var x:real;

begin

clrscr;

write('nhap x: ');readln(x);

if (x <= 10) then x:=x+5

else x:=x-5;

write('x bang: ',x);

readln;

end.

Bonus: 

Cái ảnh thứ nhất là không có clrscr còn cái ảnh thứ hai thì có.

7/Viết chương trình nhập một số nguyên từ bàn phím và kiểm tra xem số đó có chia hết cho 5 hay không ?

uses crt;

  var a:longint;

    begin

        clrscr;

 readln(a);

    if a mod 5=0 then write(a,'chia het cho 5') 

     else writeln(a,'khong chia het cho 5');

  readln

    end.

8/Viết chương trình kiểm tra 1 số thực A có hợp lệ hay không? biết số hợp lệ là số nhỏ hơn 50.

  uses crt;

     var a:real;

 begin

    clrscr;

   readln(a);

 if a<50 then writeln(a:5:3,'khong lop le')

       else writeln(a:5:3,'hop le');

  readln

 end.

9/Viết chương trình nhập vào một số thực x từ bàn phím sau đó cộng vào số đó 5 đơn vị nếu số đó không lớn hơn 10 và ngược lại thì trừ 5 đơn vị.Tính giá trị của số thực x

    uses crt;

  var x:real;

begin

 clrscr;

    readln(x);

  if x<10 then writeln(x+5) else writeln(x-5);

      readln

      end.