Viết chương trình con Sử dụng thủ tục để nhập dử liệu điểm hai môn toán văn. In ra điểm hai môn toán văn ; điểm trung bình hai môn

program phuongt;
uses crt;
  var t, v: real;
procedure nhap;
begin
        writeln(‘Diem toan: ‘, t:3:1);
        writeln(‘Diem van: ‘, v:3:1);
end;
function tong: real;
begin
        tong:=t+v;
        write(‘Diem trung binh hai mon: ‘, tong:3:1);
end;
begin
        clrscr;
        write(‘Nhap diem toan: ‘); readln(t);
        write(‘Nhap diem van: ‘); readln(v);
        nhap;
        tong;
        readln
end.