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.

Câu1

program phep_tinh;

uses Crt

Write In (`10+10`);

Write In (`3*3`);

readlr;

end.

Câu 2

program gioi_thieu_ban_than;

uses Crt

Write In (` ho_ten`);

Write In (`lop`);                                  Thông tin tự viết vô nhé

Write In (` truong`);

Write In (` so_dien_thoai`);

Câu 3  

program hinh_tam_giac;

uses Crt

var a,b,c,P: Integer;

Clrscr;     

a:= 5;

b:=6;

c:=7; 

P:= (5+6+7)/2);

Write In (` chu_vi_hinh_tam_giac_la` , P);

readln; 

end.

Câu 4

Program hinh_chu_nhat;

uses Crt 

 var r,d,P,S : Integer; 

clrser;

r:=3;

d:=5;

Write In (`chu_vi_hinh_chu_nhat_la` ,P);

Write In (`Dien_tich_hinh_chu_nhat_la` ,S);

readln;

end