Bài 3 mình không hiểu đề lắm

Bài 5:

Program NN;
Uses crt;
Const pi=3.14;
Var r,cd,cr,s1,s2: real;
Begin
        Clrscr;
        Write('Nhap chieu dai va chieu rong: '); Readln(cd,cr);
        s1:=cd*cr;
        Write('Nhap ban kinh: '); Readln(r);
        s2:=sqr(r)*pi;
        If s1>s2 then Write('Dien tich HCN lon hon')
        Else If s2>s1 then Write('Dien tich hinh tron lon hon')
        Else Write('Dien tich bang nhau');
        Readln
End.

uses crt;
var cd,cr,r:real;
begin
clrscr;
   write('CD,CR= ');readln(cd,cr);
   write('Ban kinh hinh tron: ');readln(r);
   if cd*cr>r*r*pi then writeln('HCN > Hinh tron') else
   if cd*cr<r*r*pi then writeln('HCN < Hinh tron') else
   writeln('HCN = Hinh tron');
readln
end.