[Pascal] Viết chương trình tìm số lớn nhất trong 2 số nguyên (dùng If đủ)

[Pascal] Viết chương trình tìm số lớn nhất trong 2 số nguyên (dùng If đủ)

Ngôn ngữ lập trình: Pascal

CODE:

Select All

Program So_lon;
Var
   so1,so2:Integer;
Begin
   clrscr;
   Writeln('TIM SO LON NHAT TRONG 2 SO NGUYEN');
   Writeln('---------------------------------');
   Write('-Nhap so thu nhat: ');
   Readln(so1);
   Write('-Nhap so thu hai : ');
   Readln(so2);
   If so1 > so2 Then
       Writeln('+So thu nhat la so lon nhat')
   Else
       Writeln('+So thu hai la so lon nhat');
   Writeln;
   Writeln('Bam phim <Enter> de ket thuc');
   Readln;
End.