Bài 1:

uses crt;
var n:integer;
begin
    clrscr;
    write('Nhap so: ');  readln(n);
    writeln('Chu so hang tram: ',n div 100);
    n:=n mod 100;
    writeln('Chu so hang chuc: ',n div 10);
    n:=n mod 10;
    writeln('Chu so hang don vi: ',n);
    readln;
end.

Bài 2:

Cách 1: Dùng nhập 4 biến thông thường

uses crt;
var a,b,c,d,max:integer;
begin
    clrscr;
    write('Nhap so thu nhat: ');  readln(a);
    write('Nhap so thu hai: ');  readln(b);
    write('Nhap so thu ba: ');  readln(c);
    write('Nhap so thu tu: ');  readln(d);
    max:=a;
    if b>max then max:=b;
    if c>max then max:=c;
    if d>max then max:=d;
    write('So lon nhat: ',max);
    readln;
end.

Cách 2: Nhập mảng gồm 4 số

uses crt;
var a:array[1..4] of integer;
    i,max:integer;
begin
    clrscr;
    for i:=1 to 4 do
        begin
            write('Nhap so thu ',i,': ');  readln(a[i]);
        end;
    max:=a[1];
    for i:=2 to 4 do
        if a[i]>max then max:=a[i];
    write('So lon nhat: ',max);
    readln;
end.

đây bạn 

vậy được không??