Program H C_N                               →Program H_C_N;

Uses Crt                                           →Uses  crt;  

Var a,b,s,cv:=real;                             →Var a,b,c,s,cv:real;         

Begin                                                →Begin

                                                          Clrscr;                        

While('Nhap chieu dai-');                  → Write('Nhap chieu dai=');   </strong>     </p><p>readln(a)                                            <strong>→Readln(a);</strong></p><p>Write('Nhap chieu rong=');                   </p><p>readln()                                              →<strong>Readln (b);</strong>                 </p><p>s=axb                                                 <strong>→s:=a*b;</strong>                         </p><p>cv:(a+b):2;                                            →<strong>cv:=(a+b)*2;          </strong></p><p>Writeln('dien tich hinh chu nhat la:',S:6:2);→Writeln('Dien tich hinh chu nhat la:',s:6:2);

Writeln('Chu vi hinh chu nhat:',cv:6:2);            

Readln                                                           →Readln;

End                                                                →End.