program Solonnhat;
uses CRT;
var a,b,c:real;
begin
clrscr;
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then
begin
writeln('So lon nhat la ',a:2:2);
readln;
end
else
if (b>a) and (b>c) then
begin
writeln('So lon nhat la ',b:2:2);
readln;
end
else
if (c>a) and (c>b) then
begin
writeln('So lon nhat la ',c:2:2);
readln;
end
end
end.
program hoc24hoc24;
uses crt;
var a,b,c,max: integer;
BEGIN
clrscr;
write (' nhap a = '); readln (a);
write (' nhap b = '); readln (b);
write (' nhap c = '); readln (c);
max:=a;
if b > max then max:= b;
if c > max then max := c;
write (' so lon nhat la: ', ,max);
READLN
END.