a+b+c.

program ctpt;

uses crt;

  var a, b, r: integer;

      Shtr, Shcn: real;

begin

  clrscr;

  write('Nhap chieu dai a = '); readln(a);

  write('Nhap chieu rong b = '); readln(b);

  write('Nhap ban kinh r = '); readln(c);

  Shtr:=r*r*pi;

  Shcn:=a*b;

  if (a mod 2) = 0 then write('Chieu dai ', a, ' la so chan') else write('Chieu dai ', a, ' la so le');

  if (b mod 2) = 0 then write('Chieu rong ', b, ' la so chan') else write('Chieu rong ', b, ' la so le');

  writeln('Dien tich hinh tron la: ', Shtr:2:1);

  writeln('Dien tich hinh chu nhat la: ', Shcn);

  if Shtr>Shcn then write('Dien tich hinh tron lon hon dien tich hinh chu nhat') else

      write('Dien tich hinh chu nhat lon hon dien tich hinh tron');

  readln

end.

uses crt;
var a,b,r,d:longint; s:real;
begin
clrscr;
   write('Nhap chieu dai, chieu rong, ban kinh: ');readln(a,b,r);
   s:=r*r*pi; d:=a*b;
   writeln('Dien tich hinh tron: ',s:0:5);
   if a mod 2=0 then writeln('Chieu dai la so chan') else writeln('Chieu dai la so le');
   if b mod 2=0 then writeln('Chieu rong la so chan') else writeln('Chieu rong la so le');
   if s<d then writeln('Chu nhat<Hinh tron') else writeln('Chu nhat>Hinh tron');
readln;
end.