program so_nao_lon_nhat;

uses crt;

var:a,b,c:integer;

begin

clrscr;

writeln('moi ban nhap a:');

readln(a);

writeln('moi ban nhap b:');

readln(b);

writeln('moi ban nhap c');

readln(c);

a:=max;

if b>a then b=max;

if c>b then c=max;

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

readln;

end.

program bt;

var

       max,a,b,c:integer;

begin

      write('Nhap so a: ');readln(a);

      write('Nhap so b: ');readln(b);

      write('Nhap so c: ');readln(c);

      max:=a;

      if b>max then max:=b;

      if c>max then max:=c;

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

      readln;

end.