пж помогите я-то нуб в етом ,срочно до часу ночи , заранее спасибо

класч

program zadacha_4;var a,b,c,d:integer;beginwriteln('введите число');readln(a);for b:=1 to a do beginc:=sqr(b);if b mod 2 = 0 then d:=d+c;end;writeln(d);end.program zadacha_5;var a,b,c,e:integer;    d:real;beginc:=0;d:=0;writeln('введите число');readln(a);writeln('введите число');readln(b);for a:=a to b do beginif a mod 2 <> 0 then e:=sqr(a);if a mod 2 <> 0 then c:=c+1;if a mod 2 <> 0 then d:=d+e;end;d:=d/c;writeln('среднее арифметическое ',d);end.