Nguyễn Quỳnh Chi's Profile

program baitap;

uses crt;

var cd,cr,s:longint;

begin

    clrscr;

    write('nhap chieu dai :');readln(cd);

    write('nhap chieu rong :');readln(cr);

     s:=cd*cd;

    writeln('S hinh chu nhat la :',s);

readln;

end.