ПОЖАЛУЙСТА,ЕДИНСТВЕННАЯ НАДЕЖДА НА ВАС!!!

Задача 3-1
 После выполнения фрагмента алгоритма переменная A приняла значение 8. Определить минимальное целое N, при котором это возможно.
A:=0;i:=1;while i<N do begini:=i+3;if i mod 4=0 then A:=A+1;end;A:=2*A*A-10;
Задача 3-2
После выполнения фрагмента алгоритма переменная X приняла значение 25. Определить минимальное целое N, при котором это возможно.
X:=0;i:=l;while i<=N do begini:=i+l;if (i mod 2=0) and (i mod 4 <> 0)then X:=X+1;end;X:=X*X-2*X+1;
 Поиск ошибок в программе. Найти и исправить ошибки в программе.
Задача 4-1
program Z;VAR n,m: char;BEGINwrite(n -> ); readln(m)m:=1;while sqr(m)>=n do m:=m+1;writeln(m);END
Задача 4-2
program Д;BEGINVAR i,n,k,a: integer;readln(n); k:=0;for i:=1 to n doreadln(a);if a > 0 then k:=k+1;end;wreteln(k = ',k:0:2);END.
Задача 4-3
program W;VAR max;a: integer; n: longint;BEGINwrite('n -> '); readln(n);max:=10;while n <> 0 begina:=n mod 10;if a > max;then max:=a;n:=n mod 10;end;