Hãy viết chương trình nhập vào từ bàn phím 3 số nguyên khác nhau a , b , c đưa ra màn hình số lớn nhất

program bt;
uses crt;
var a,b,c,max:integer;
begin
clrscr;
writeln('hay nhap a: ');readln(a);
writeln('hay nhap b: ');readln(b);
writeln('hay nhap c: ');readln(c);
max:=a;
if max < b then max:=b;
if max < c then max:=c:
write('so lon nhat la: ',max);
readln;
end.

KHÓ QUÁ ĐÓ

program bai_giai;
uses crt;
var a,b,c,max,i:longint;d:array[1..3]of longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  write('c=');readln(c);
  d[1]:=a;d[2]:=b;d[3]:=c;
  max:=0;
  for i:=1 to 3 do if(d[i]>max)then max:=d[i];
  write('so lon nhat trong ba so la:',max);
 readln;
end.

đây bạn ơi