viết chương trình pascal và hiện kết quả: ' nếu điểm trung bình lớn hơn hoặc bằng 5 -> " Bạn đã trúng tuyển vào trường Trần Hưng Đạo " ' và ' nếu điểm trung bình thấp hơn 5 -> " chúc bạn may mắn lần sau " ' giúp mình với mn ơi;-;

2 câu trả lời

uses crt;

var a : real;

begin

clrscr;

write('nhap diem trung binh : ');readln(a);

if a >= 5 then writeln('ban da trung tuyen vao truong tran hung dao')

else writeln('chuc ban may man lan sau');

readln;

end.

Program bai_lam;

uses crt;

var a:integer;

Begin

Write('nhap diem trung binh mon cua bạn');readln(a);

If a>=5 then write('ban da trung tuyen vao truong Tran Hung Dao');

             else write('chuc ban may man lan sau');

Readln;

End.