Xác định bài toán:

INPUT: điểm TBM môn Toán

OUTPUT: Xếp loại môn Toán

Mô tả thuật toán bằng sơ đồ khối:

(Hình kèm =)) )

Viết CT: 

Pascal:

program ct;
uses crt;
var TBM: real;
    a: string;
begin
    clrscr;
    writeln('Nhap TBM mon Toan: '); readln(TBM);
    if TBM >= 8 then a:='Dat loai gioi'
    else a:='Khong dat loai gioi';
    writeln(a);
    readln;
end.

Python 3:

TBM = float(input('Nhap TBM mon toan: '))
if TBM >= 8:
    a = 'Dat loai gioi'
else:
    a = 'Khong dat loai gioi'
print(a)

__________________________________

Cho mik xin CTLHN nha, hc tốt!!!

#Duahauvn