Bài 1
program tich_tong;
uses crt;
var a, b, t, s: real;
begin
clrscr;
write ('Nhap a = '); readln (a);
write ('Nhap b = '); readln (b);
​s := a + b;
write ('Tong hai so vua nhap la: ', s:6:2);
t := a*b;
write ('Ttich hai so vua nhap la: ', t:6:2);
readln;
end.

Bài 2
program hinh_chu_nhat;
uses crt;
var a, b, s, cv: real;
begin
clrscr;
write ('Nhap chieu dai = '); readln (a);
write ('Nhap chieu rong = '); readln (b);
cv := (a+b)*2;
write ('Chu vi hinh chu nhat = ', cv:6:2);
s:= a*b;
write ('Dien tich hinh chu nhat = ', s:6:2);
​readln;
end.