$#QLinkVN$

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.

uses crt;
var v,t,tt:real;
begin
clrscr;
write('nhap diem toan');readln(t);
write('nhap diem van');readln(v);
tt:=t+v;
writeln('tong diem',tt:5:2);
if tt>=10 then writeln('dat') else writeln('khong dat');
readln
end.