Bài 1: Em hãy viết chương trình để tính tổng và tích của 2 số bất kỳ được nhập vào từ bàn phím Bài 2: Em hãy viết chương trình để nhập và in ra họ tên, lớp, trường, sđt của mình Bài 3: Nhập vào 3 cạnh của hình tam giác, tính và in ra chu vi hình tam giác đó Bài 4: Tính chu vi, diện tích hình chữ nhật biết: Chiều dài được nhập vào từ bàn phím Chiều rộng = 3

Bài 1: 

Program bai1;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap 2 so bat ki:');

Readln(a,b);

Writeln('Tong cua hai so do:',a+b);

Writeln('Tich cua hai so do:',a*b);

Readln

End.

Bài 2:

Program bai2;

Uses crt;

Var ten,lop,truong,sdt:string;

Begin

Clrscr;

Readln(ten);

Readln(lop);

Readln(truong);

Readln(sdt);

Writeln('Ho ten:',ten);

Writeln('Lop:',lop);

Writeln('Truong:',truong);

Writeln('So dien thoai:',sdt);

Readln

End.

Bài 3:

Program bai3;

Uses crt;

Var a,b,c:real;

Begin

Write('Nhap 3 canh cua tam giac:');

Readln(a,b,c);

Writeln('Chu vi cua hinh tam giac:',a+b+c);

Readln

End.

Bài 4:

Program bai4;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Chieu dai:'); Readln(a);

b:=3;

Writeln('Chu vi hinh chu nhat:',2*(a+b));

Writeln('Dien tich hinh chu nhat:',a*b);

Readln

End.