Прошу помогите!!!!Help...

[Ximer]

Народ помогите решить 2 задачки на паскале.
Вот задачи
Я в паскале понимаю мало так как изучаю его недавно. Вот попались такие задачки, но не получается решить. Люди добрые помогите.
Извините, что продублировал сообщения.

[Sazary]

Вторая:

uses crt;
var
a,b,c,d : integer;
begin
clrscr;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
write('d= ');
readln(d);

if not odd(a) then
  begin
  if (b>0) and (c>0) then
    writeln(a:3,b:3,c:3,d:3)
  else
   writeln((a+b+c+d):3);
  end
 else if (b>0) and (c>0) then
   writeln(((a+b+c+d)/4):4:1)
 else writeln(-a:3,-b:3,-c:3,-d:3);
readln;
end.

[Sazary]

Первая:

uses crt;
var
a,b,c : integer;
sred : real;
begin
clrscr;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
sred := (a+b+c)/3;
 if (a+b+c) mod 3 = 0 then
   begin
   if round(sred) mod c = 0 then writeln('DA, delitsya!')
   else writeln('NET, ne delitsya');
   end
 else writeln('NET, ne delitsya');

readln;
end.

[pomoshnic]

1)

uses crt;
var n,s,i,a:integer;
arif:real;
begin
clrscr;
writeln('Vvedite kolichestvo chisel');
readln(n);
for i:=1 to n do
begin
writeln('Vvedite element [',i,']');
readln(a);
s:=s+a;
end;
arif:=s/n;
if s mod a <> 0 then write('ne ');
writeln('delitsa');
readln
end.

P.S. Переименуйте тему иначе её удалят.

[Ximer]

Да согласен что задачи плёвые. Но к сожалению надо же с чего-то учиться поже куплю учебник. Спасибо за помощь.
Застрял я на сторке then не понимал какая у меня там ошибка.