Bài tập 1 . Nhập vào 2 cạnh của hình chữ nhật . In ra màn hình diện tích và chu vi của nó

Program NN;
Uses crt;
Var a,b,p,s: extended;
Begin
        Clrscr;
        Write(‘Nhap a,b: ‘); Readln(a,b);
        s:=a*b;
        p:=(a+b)*2;
        Writeln(‘S = ‘,s:0:2);
        Writeln(‘P = ‘,p:0:2);
        Readln
End.