Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím với điều kiện chỉ được dùng hai biến.

Program Lonnhat;

Uses crt;

Var a,max: integer;

Begin

Clrscr;

Write('Nhap so thu nhat:');

Readln(a);

max:=a;

Write('Nhap so thu 2:');

Readln(a);

If a>max then max:=a;

Write('Nhap so thu 3:');

Readln(a);

If a>max then max:=a;

Write('Nhap so thu 4:');

Readln(a);

If a>max then max:=a;

Writeln('So lon nhat la:',max);

Readln

End.