• trumtinhoc
• 15:48

uses crt;

var a,b,c,max: integer;

begin

clrscr;

write ('nhap a: ');   readln (A);

write ('nhap b: ');   readln (B);

write ('nhap c: ');   readln (C);

if (a>b) and (a>c) then max:=a;

if (b>a) and (b>c) then max:=b;

if (c>a) and (c>b) then max:=c;

writeln ('so lon nhat la: ',max);

readln;

end.

program tim;

uses crt;

var a, b, c, max : integer;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

write('nhap so nguyen b :');readln(b);

write('nhap so nguyen c :');readln(c);

max := a;

if (b > max ) then max := b;

if (c > max) then max := c;

writeln('so lon nhat trong ba so la :', max);

readln

end.