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.
