Question

viết chương trình pascal tìm số lớn nhất trong 2 số nguyên

Answer 1

Program bai1;

uses crt;

var a,b: longint;

begin

clrscr;

write('nhap so thu nhat = '); readln(a);

write('nhap so thu hai ='); readln(b);

if a > b then writeln(a , ' la so lon nhat ');

if a < b then writeln(b , 'la so lon nhat ');

if a = b then writeln('khong co so nao lon nhat ');

readln;

end.