$#QLinkVN$

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

INPUT: Điểm Toán, Văn của học sinh trên

OUTPUT: Màn hình kết quả "Đạt" hay "Không đạt" của học sinh đó.

Cấu trúc chương trình cụ thể như sau:

program toanvan;
uses crt;
var Toan,Van,Tong: integer;
begin
         clrscr;
         writeln('Nhap diem Toan cua ban: '); readln(Toan);
         writeln('Nhap diem Van cua ban: '); readln(Van);
         Tong:=Van+Toan;
         if (Tong>=10) then writeln('Dat!') else writeln('Chua dat!'); 
         readln;
         end.

program diem;

uses crt;

var toan,van,tong:real;

begin

clrscr;

Write('Diem mon toan: '); readln(toan);

Write('Diem mon van: '); readln(van);

tong:=toan+van;

if (tong >= 10) then write('Dat') else write('Khong dat');

readln

end.