KT 15 phút tin : Viết chương trình tính : diện tích hình chữ nhật, chu vi hình chữ nhật

program kt_15p; // :)
uses crt;
var a, b:real;
begin
    clrscr;
    readln(a, b);
    writeln('Chu vi: ', (a + b) * 2 :0:3);
    writeln('Dien tich: ', a * b :0:3);
readln;
end.

Ý tưởng: Nhập a,b lần lượt là hai cạnh của hình chữ nhật, tính cv, diện tích

Program timCV_DT:

Uses CRT;

var a, b,s,p:integer;

BEGIN

CLRSCR;

Write('Nhap  chieu dai: '); Readln(a); 

Write('Nhap  chieu rong: '); Readln(b);

 p:=(a+b)*2;

s:=a*b;

Writeln('Chu vi hinh chu nhat la ',p); 

Writeln('Dien tich hinh chu nhat la ',s);

Readln;

END.