uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln('so lon nhat la: ',a)
else if b>a then writeln('so lon nhat la: ',b)
else writeln('khong co so lon nhat trong hai so');
readln;
end.
program gia_tri_lon_nhat;
uses crt;
var a,b,max: real;
begin
clrscr;
writeln('nhap hai so:'); readln(a,b);
textcolor(green);
max:=a;
max:=b;
if max<a then max:=a;
if max<b then max:=b;
writeln(' so lon nhat la:',max:6:2);
readln;
end.