Question

viết chương trình tìm số lớn nhất trong 3 số a,b,c

Answer 1

uses crt;

var a,b,c,ln:integer;

begin

clrscr;

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

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

write('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.