viết chương trình nhập 2 số tự nhiên a,b từ bàn phím và in ra kết quả số lớn nhất.

uses crt;
var a,b,ln,nn:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
ln:=a;
nn:=a;
if (a>=0) and (b>=0) then
begin
if a>b then
begin
ln:=a;
nn:=b;
end;
if b>a then
begin
ln:=b;
nn:=a;
end;
writeln('so nho nhat la: ',nn);
writeln('so lon nhat la: ',ln);
end
else writeln('vui long nhap hai so tu nhien');
readln;
end.

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a>b then write('a la so lon nhat');

                   else ('b la so lon nhat')

Readln;

End.