1.A,b,max:real ; cái này mình không chắc chắn lắm lâu rồi không làm đến
Begin
Write(‘dua vao a:’); readln(a);
Write(‘dua vao b:’) readln(b);
Max:= a ;
If max > b then max:= b ;
If max <b then max:= b;
Writeln(‘gia tri lon nhatla:’, max) ;
Readln
End

1)
program bt;
ues crt;
var a,b: integer;
begin
clrscr;
writeln('nhap a,b: '); readln(a,b);
if (a>b) then writeln(b,' ',a) else writeln(a,' 'b);
readln
end.
2)
program bt;
uses crt;
var a,max: integer;
begin
clrscr;
writeln('nhap so a: '); readln(a);
max:= a;
writeln('nhap so b: '); readln(a);
if (a>max) then max:= a;
writeln('nhap so c: '); readln(a);
if (a>max) then max:= a;
writeln('nhap so d: '); readln(d);
if (a>max) then max:= a;
writeln('so lon nhat trong 4 so la: ',max);
readln
end.