Reikia pagalbos su programavimu padėkit kas nors PLS

II. Parašykite programą, apskaičiuojančią, kiek lyginių triženklio skaičiaus skaitmenų suma didesnė už nelyginių skaitmenų sumą.

III. Parašykite programą, randančią didžiausiojo ir mažiausiojo keturženklio skaičiaus skaitmenų vidurkį ir likusių skaitmenų vidurkį. Labai prašau reik atsiskaityt iki vakara

Tuoj pamėginsiu parašyt (paredaguosiu postą parašęs). Reikia dar?

EDIT:

Pirmasis:

program shit;
var skaicius,sk1,sk2,sk3,lyg,nelyg:integer;
begin
 WriteLn('Įrašykite triženklį skaičių:');
 ReadLn(skaicius);
 if (skaicius div 100 >= 1) and (skaicius div 100 < 10)
 then
   begin
   sk1 := skaicius div 100;
   sk2 := skaicius mod 100 div 10;
   sk3 := skaicius mod 10;
   if (sk1 mod 2 = 1) then nelyg := nelyg + sk1
   else lyg := lyg + sk1;
   if (sk2 mod 2 = 1) then nelyg := nelyg + sk2
   else lyg := lyg + sk2;
   if (sk3 mod 2 = 1) then nelyg := nelyg + sk3
   else lyg := lyg + sk3;
   WriteLn('Lyginių skaičių suma didesnė už nelyginių skaičių sumą ',lyg-nelyg,' vienetais');
   end
 else WriteLn('Klaida: nurodytas skaičius nėra triženklis.');
 Readln;
end.