program bilangan_terbesar;
uses
WinCrt;
var
a,b,c:real;
begin
writeln(' Program Bilangan Terbesar');
writeln(' =========================');
write('input bilangan a: ');readln(a);
write('input bilangan b: ');readln(b);
write('input Bilangan c: ');readln(c);
if (a>b) and (a>c)then
writeln('bilangan terbesar',a:0:2)
else
if (b>a) and (b>c)then
writeln( 'bilangan terbesar',b:0:2)
else
if (c>a) and (c>b)then
writeln(' bilangan terbesar',c:0:2)
else
if (a=b) and (a=c) then
if (b=a) and (b=c) then
if (c=a) and (c=b) then
writeln(' nilai bilangan a,b,c sama');
readln;
donewincrt;
end.