program sksk;

uses crt;

var a, b, c : real;

      e, f  : string;

begin

clrscr;

write('nhap ho va ten :');readln(e);

write('nhap lop cua ban :');readln(f);

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

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

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

writeln('Ho Va Ten : ', e);

writeln('Hoc Sinh Lop :', f);

writeln('Tong diem ba mon hoc :', a+b+c);

writeln('Diem trung binh ba mon la :', (a+b+c)/3);

readln

end.

program diem_tb;
uses crt;
var a, b, c, tb: real;
begin
clrscr;
writeln ('Ho va ten hoc sinh:');
write ('Diem Toan = '); readln (a);
write ('Diem Van = '); readln (b);
write ('Diem Anh = '); readln (c);
tb := (a + b + c) / 3;
write ('Diem trung binh cua hoc sinh nay la:', tb:2:2);
readln;
end.