giúp em 2 bài pascal cái!

[nhocsok102]

em mới học nên gà lắm vậy mong ae làm giúp 3 bài tập.
1/nhập 4 số dương .Tìm max của 4 số đó.
2/nhập 4 số nguyên dương,đếm xem có bao nhiêu số chẵn,số lẻ.

[boy38]

bài này dễ mà
nhưng mình thấy không ai trả lời nên mình làm vậy
bạn xem thế nào


program tim_max;
uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
writeln('tim so lon nhat trong cac so sau');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
max:=a;
if max<=b then max:=b;
if max<=c then max:=c;
if max<=d then max:=d;
writeln('Max=',max);
readln;
end.

[hcvtpt]

nhập 4 sô dương,...
làm kiểu hay quá :)
var
a,b,c,d:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
demc:=0;
deml:=0;
if a mod 2 = 0 then
demc:=demc+1
else đeml:=deml+1;
if b mod 2 = 0 then
demc:=demc+1
else đeml:=deml+1;
if c mod 2 = 0 then
demc:=demc+1
else đeml:=deml+1;
if d mod 2 = 0 then
demc:=demc+1
else đeml:=deml+1;
writeln('So chan: ',demc);
writeln('So le: ',deml);
readln
end.

[chuinhacau]

bó tay mấy bài này đơn giản quá