1/ Tính chu vi, diện tích hình vuông có cạnh là a: 
PROGRAM HINH VUONG; 
{Nhap canh a cua hinh vuong. Tinh chu vi, dien tich cua hinh vuong ay} 
VAR a:real; 
BEGIN 
Write('Nhap canh a: ');readln(a); 
Writeln; 
If a>0 then 
begin 
Writeln('Chu vi P = ',4*a:6:2); 
Writeln('Dien tich S = ',a*a:6:2); 
end 
Else writeln(#7,'Khong thuc hien vi a <= 0'); 
Readln 
END. 

program dientich_chuvi;
uses crt;
var a: real;
begin
clrscr;
writeln ('nhap so a');
readln(a);
dientich:=a*a;
chuvi:=a*4;
writeln ( 'dien tich la', dientich);
writeln('chu vi la', chuvi);
readln;
end.