Em hãy sử dụng ngôn ngữ lập trình Pascal để viết chương trình cho phép thực hiện các công việc sau: -Nhập vào điểm môn Tin của hai bạn Tủn và Tèo -Ghi ra màn hình kết quả so sánh điểm của hai bạn đó Lưu ý: chỉ ghi ra một kết quả duy nhất là một trong các thông báo sau: + Diem cua Tun cao hon Teo + Diem cua Teo cao hon Tun +Diem cua hai ban bang nhau

program oken;

uses Crt;

var tun,teo:integer;

begin

write('nhap diem ban Tun: '); readln(tun);

write('nhap diem ban Teo: '); readln(teo);

if tun>teo then writeln('Diem cua Tun cao hon Teo') 

   else  if tun<teo then writeln('Diem cua teo cao hon Tun')

              else writeln('Diem cua hai ban bang nhau');

readln;

end.

Program BTH;
uses crt;
var d1,d2:real;
Begin
        clrscr;
        write('Nhap diem Tun: '); readln(d1);
        write('nhap diem Teo: '); readln(d2);
        if d1>d2 then writeln('Diem cua Tun cao hon Teo')
        else  if d1<d2 then writeln('Diem cua Teo cao hon Tun')
        else writeln('Diem cua hai ban bang nhau');
        readln;
end.