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.