MỌI NGƯỜI GIÚP MIK VS MIK ĐANG CẦN Cấp Bài tập 1. Viết chương trình nhập 2 số nguyên từ bàn phím. In ra màn hình kết quả phép cộng của 2 số nguyên đó. Bài tập 2. Viết chương trình nhập 2 số nguyên từ bàn phím. In ra màn hình kết quả phép nhân của 2 số nguyên đó. Bài tập 3. Viết chương trình nhập năm sinh của một học sinh là số nguyên. Cho biết bạn đó bao nhiêu tuổi? Bài tập 4. Viết chương trình nhập chiều cao của 2 học sinh là số thực. Hãy tính trung bình cộng chiều cao của 2 bạn đó.

program baitap1;     // khai báo tên chương trình
uses crt;     // khai báo thư viện
var x,y:longint;     // khai báo biến 
begin     // bắt đầu
 clrscr;     //xoá  màn hình kết quả 
  write('nhap gia tri so thu 1:');readln(x);      //nhập số thứ nhất
  write('nhap gia tri so thu 2:');readln(y);      //nhập số thứ hai
  write('tong cua hai so tren la:',x+y);     //xuất giá trị
 readln;     //nhấn enter trước khi thoát màn hình
end.     //kết thúc chương trình

---------------------------------------------

program baitap2;     // khai báo tên chương trình
uses crt;     // khai báo thư viện
var x,y:longint;     // khai báo biến 
begin     // bắt đầu
 clrscr;     //xoá  màn hình kết quả 
  write('nhap gia tri so thu 1:');readln(x);      //nhập số thứ nhất
  write('nhap gia tri so thu 2:');readln(y);      //nhập số thứ hai
  write('tich cua hai so tren la:',x*y);     //xuất giá trị
 readln;    //nhấn enter trước khi thoát màn hình
end.     //kết thúc chương trình

-----------------------------------------------

program bai_tap3;     // khai báo tên chương trình
uses crt,sysutils;     // khai báo thư viện
var year,month,day:word;namsinh,namhientai,tuoi:integer;     //khai báo biến
begin     // bắt đầu
 clrscr;     //xoá  màn hình kết quả 
  write('Nhap nam sinh cua ban: ');readln(namsinh);     //nhập năm sinh
  decodedate(date,year,month,day);     //câu lệnh dịch ngày,tháng,năm hôm nay
  namhientai:=year;     //xác nhận năm nay là năm mấy
  writeln('nam hien tai:',namhientai);     // xuất năm nay là năm mấy
  tuoi:=namhientai-namsinh;     // tính tuổi
  writeln('ban sinh nam ',namsinh,' => Hien tai ban ',tuoi,' tuoi');     //xuất tuổi
 readln;     //nhấn enter trước khi thoát màn hình
end.    //kết thúc chương trình

-----------------------------------------------------------------------------

program baitap4;    // khai báo tên chương trình
uses crt;     // khai báo thư viện
var x,y:real;    //khai báo biến
begin     // bắt đầu
 clrscr;     //xoá  màn hình kết quả
  write('chieu cao ban thu 1:');readln(x);     //nhập chiều cao bạn thứ nhất
  write('chieu cao ban thu 2:');readln(y);     //nhập chiều cao bạn thứ hai
  write('trung binh cong chieu cao cua hai ban la:',(x+y)/2:4:2);     // xuất kết quả
 readln     //nhấn enter trước khi thoát màn hình
end.    //kết thúc chương trình