viết phương trình nhập điểm 3 môn: toán văn anh tính tổng 3 môn và thông báo trúng tuyển khi tổng điểm >=15 và trường hợp còn lại thông báo hỏng

program diem;

uses Crt;

var a, b, c : real;

begin

clrscr();

write('nhap diem mon toan :'); readln(a);

write('nhap diem mon van :'); readln(b);

write('nhap diem mon anh van :');readln(c);

if (a+b+c >= 15) then writeln('trung tuyen') else writeln ('hong');

readln

end.

Program baitap;

Uses crt;

Var toan,van,anh,S:integer;

Begin

Clrscr;

Write('Nhap diem toan:'); Readln(toan);

Write('Nhap diem van:'); Readln(van);

Write('Nhap diem anh:'); Readln(anh);

S:=toan+van+anh;

If S>=15 then writeln('Trung tuyen') else writeln('Hong');

Readln

End.