Uses Crt ;
  Var SBD : Integer;
     vatli , Toan , hoahoc , Tongdiem : Real ;
   BEGIN
    Clrscr ;
    Write (' So bao danh : ') ; Readln( SBD ) ;    Write (' Diem toan : ') ; Readln( Toan ) ;
    Write (' Diem hoahoc : ') ; Readln( hoahoc ) ;    Write (' Diem li : ') ; Readln ( li ) ;
    Tongdiem := Toan + Vatli + hoa ;
     Clrscr ;
    Writeln (' Phieu Bao Diem ') ;
    Writeln (' So bao danh       : ', SBD ) ;    Writeln (' Diem li           : ', li) ;
    Writeln (' Diem toan          : ', Toan ) ;    Writeln (' Diem hoa : ', hoa) ;
    Writeln (' Tong diem    : ', Tongdiem) ;
    If Tongdiem >= 15 Then
      Writeln(' Ban da trung tuyen ')    Else      Writeln(' Ban khong trung tuyen ') ;
    Readln ;
    END .