Do bài tập dùng if nên nó if nhiều nhé bạn.

============================

program Hello;
uses crt;
var a,b,c,d,e: integer;
begin
    read(a,b,c,d,e);
    d:= 0;
    if a mod 2 <> 0 then inc(d);
    if b mod 2 <> 0 then inc(d);
    if c mod 2 <> 0 then inc(d);
    if d mod 2 <> 0 then inc(d);
    if e mod 2 <> 0 then inc(d);
    write(d);
end.

=============================

program Hello;
uses crt;
var a,b,c,d,e,m: integer;
begin
    read(a,b,c,d,e);
    m:=a;
    if m > b then m:= b;
    if m > c then m:= c;
    if m > d then m:= d;
    if m > e then m:= e;
    write(m);
end.

===========================

program Hello;
uses crt;
var a,b,c,d,e,min,max,v: integer;
begin
    read(a,b,c,d,e);
    max:=a;
    v:=1;
    if max < b then begin max:= b; v:= 2; end;
    if max < c then begin max:= c; v:= 3; end; 
    if max < d then begin max:= d; v:= 4; end;
    if max < e then begin max:= e; v:= 5; end;
    if (max = b) or (max = c) or (max = d) or (max = e) then
        begin
            max:= a;
            v:=1;
            if max > b then begin max:= b; v:= 2; end;
            if max > c then begin max:= c; v:= 3; end;
            if max > d then begin max:= d; v:= 4; end;
            if max > e then begin max:= e; v:= 5; end;
        end;
    write(v);
end.

Bài 1:

program so_le;
uses crt;
var a,b,c,d,e,dem:integer;
begin
    clrscr;
    write('Nhap a: ');  readln(a);
    write('Nhap b: ');  readln(b);
    write('Nhap c: ');  readln(c);
    write('Nhap d: ');  readln(d);
    write('Nhap e: ');  readln(e);
    dem:=0;
    if a mod 2=1 then dem:=dem+1;
    if b mod 2=1 then dem:=dem+1;
    if c mod 2=1 then dem:=dem+1;
    if d mod 2=1 then dem:=dem+1;
    if e mod 2=1 then dem:=dem+1;
    write('Co ',dem,' so le');
    readln;
end.

Bài 2:

program GTNN;
uses crt;
var a,b,c,d,e,min:integer;
begin
    clrscr;
    write('Nhap a: ');  readln(a);
    write('Nhap b: ');  readln(b);
    write('Nhap c: ');  readln(c);
    write('Nhap d: ');  readln(d);
    write('Nhap e: ');  readln(e);
    min:=a;
    if b<min then min:=b;
    if c<min then min:=c;
    if d<min then min:=d;
    if e<min then min:=e;
    write('So nho nhat la: ',min);
    readln;
end.

Bài 3: 

program thutu_max;
uses crt;
var a,b,c,d,e,max,vt:integer;
begin
    clrscr;
    write('Nhap a: ');  readln(a);
    write('Nhap b: ');  readln(b);
    write('Nhap c: ');  readln(c);
    write('Nhap d: ');  readln(d);
    write('Nhap e: ');  readln(e);
    max:=a;  vt:=1;
    if b>max then begin max:=b; vt:=2; end;
    if c>max then begin max:=c; vt:=3; end;
    if d>max then begin max:=d; vt:=4; end;
    if e>max then begin max:=e; vt:=5; end;
    write('Thu tu cua gia tri lon nhat la: ',vt);
    readln;
end.