viết chương trình nhập vào số 3 và sô nguyên từ bàn phím và in ra màn hình số lớn nhất trong 3 số đó

uses crt;

var a,b,c,ln:integer;

begin

clrscr;

write('nhap a='); readln(a);

write('nhap b='); readln(b);

write('nhap c='); readln(c);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

writeln('so lon nhat la: ',ln);

readln;

end.

bài 2:

uses crt;

var a,b,c:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if (a>0) and (b>0) and (c>0) then

begin

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('day la 3 canh trong mot tam giac')

else writeln('day khong la 3 canh trong mot tam giac');

end

else writeln('vui long nhap cac so lon hon 0');

readln;

end.

uses crt;
var a,b,c,m:longint;
begin
clrscr;
write('a,b,c: ');
readln(a,b,c);
m:=a;
if m<b then m:=b;
if m<c then m:=c;
writeln('gia tri lon nhat: ',m);
readln
end.