uses crt;
var a:array[1..10000]of longint;min,max,i:longint;
begin
 clrscr;
  for i:=1 to 4 do a[i]:=i;
  min:=a[1];
  max:=a[1];
  for i:=1 to 4 do if(min>a[i])then min:=a[i];
  for i:=1 to 4 do if(max<a[i])then max:=a[i];
  writeln('so lon nhat trong cac so 1,2,3,4 la:',max);
  writeln('so be nhat trong cac so 1,2,3,4 la:',min);
 readln;
end.

4 số là cố định.

program bai_giai;
uses crt;
var a,b,c,d,max:integer;
begin
    clrscr;
    a:=1; b:=2; c:=3; d:=4;
    max:=a;
    if b>max then max:=b;
    if c>max then max:=c;
    if d>max then max:=d;
    write(max);
    readln;
end.

Nhập giá trị cho 4 số.

program bai_giai;
uses crt;
var a,b,c,d,max:integer;
begin
    clrscr;
    read(a,b,c,d);
    max:=a;
    if b>max then max:=b;
    if c>max then max:=c;
    if d>max then max:=d;
    write(max);
    readln;    readln;
end.