умоляю решите до часа ночи , буду благодарен ,я чайник в етом

сп ппп

ты мой сраситель

спаситель*

ты тут

всегда рад помочь

program zadacha_1;var a,b,c:integer;beginwriteln('введите число');readln(a);for b:=1 to a do beginc:=sqr(b);writeln(c);end;end.program zadacha_2;var a,b,c:integer;beginc:=1;writeln('введите первое число');readln(a);writeln('введите второе число');readln(b);for a:=a to b do beginc:=c*a;end;writeln('произведение чисел от ',a,' до ',b,' ==> ',c);end.program zadacha_3;var a,b,c:integer;    d:real;beginc:=0;writeln('введите число');readln(a);for b:=10 to a do beginc:=c+1;d:=d+b;end;d:=d/c;writeln('среднее арифметическое ',d);end.