Program baitap;

Uses crt;

Var a:real;

Begin

Clrscr;

Write('Nhap so bat ky:'); Readln(a);

If trunc(a)=a then writeln('Do la so nguyen')

                     Else writeln('Do la so thuc');

Readln

End.

uses crt;

var a, b, c, d, max, max2 : integer;

begin

clrscr;

write('nhap 4 so :');readln(a, b, c, d);

max := a;

if b > max then max := b;

if c > max then max := c;

if d > max then max := d;

if a - max = 0 then

begin max2 := b; if c > max2 then max2 := c;

if d > max2 then max2 := d;

end;

if b - max = 0 then

begin max2 := a; if c > max2 then max2 := c;

if d > max2 then max2 := d;

end;

if c - max = 0 then

begin max2 := a; if b > max2 then max2 := b;

if d > max2 then max2 := d;

end;

if d - max = 0 then

begin max2 := a; if b > max2 then max2 := b;

if c> max2 then max2 := c;

end;

writeln('so lon thu hai la :', max2);

readln

end.