meoc

program Tim_max;
  var  a,b,c,d, max : integer;
begin
  writeln('meo con di tim so lon nhat trong cac so sau nhe');
  write ('nhap so a: ');
  readln(a);
  write ('nhap so b: ');
  readln(b);
  write ('nhap so c: ');
  readln(c);
  write ('nhap so d: ');
  readln(d);


  max:=a;
  if b>max then max:=b;
   if c>max then max:=c;
    if d>max then max:=d;

  writeln ('vay so lon nhat trong 4 so: ',a,', ',b,', ',c,', ',d,' la: ',max);
  readln;

end.