| -Câu 1: +Viết khai báo tên chương trình là: Bai tap +Khai báo các biến dùng trong chương trình |-Câu 2: +Viết thủ tục nhập độ dài 2 cạnh a,b từ bàn phím + Viết câu lệnh gán biểu thức tính chu vi cho biến CV, biểu thức tính diện tích cho biến S |-Câu 3: + Viết thủ tục đưa ra màn hình giá trị của chu vi HCN(gt CV) + Viết thủ tục đưa ra màn hình giá trị của diện tích HCN(gt S)

program Baitap;
uses crt;
var a,b,CV,S:longint;
procedure Input; begin readln(a,b); CV:=(a+b)*2; S:=a*b; end;
procedure printCV; begin writeln(CV); end;
procedure printS;  begin writeln(S ); end;
begin
    Input;
    printCV;
    printS;
end.

program Baitap;
uses crt;
var a,b,CV,S:int64;
procedure thutuc;
begin
clrscr;
readln(a,b);
CV := 2*(a+b);
S  := a*b;
end;
procedure CHUVI;
begin
writeln('Chu vi hinh chu nhat la ',CV);
end;
procedure DIENTICH;
begin
writeln('Dien tich hinh chu nhat la ',S);
end;
begin
thutuc;
CHUVI;
DIENTICH;
readln
end.