var lan,ha,mai:integer;
begin
write('Tuoi Lan la ');readln(lan);
write('Tuoi Ha la ');readln(ha);
write('Tuoi Mai la ');readln(mai);
write('Tong so tuoi cua ba ban la ',lan+ha+mai);
readln;
end.
Uses crt;
Var m, l, h: integer;
Begin
Write('So tuoi cua Lan la: '); readln(l);
Write('So tuoi cua Ha la: ');
Readln(h);
Write('So tuoi cua Mai la: ');
Readln(m);
Writeln('Tong so tuoi cua ca ba ban la: ', m+h+l);
Readln;
End.
P/s: Chúc bạn học tốt!