не правильно работает программа Program Tab;

Uses Crt;

Const y=1;

Var X, A, F: Real;

Begin

ClrScr;

X:=0.0;

Repeat

Begin

A:=0;

While A>4 do

F:=X*X*cos(sqrt(A)*y)+ln(y);

Writeln('A=', A:5:2, ' ': 3,'y=',y,' ':3,'X=',X: 5: 2,' ':3, 'F=', F: 5: 3);

A:=A+1 {изменение переменной A}

End;

X:=X+1.0;

Until X<=3.0;

Readln;

End.

Если будете сдавать в тестирующей системе, то вместо string, лучше использовать массив char - работает быстрее.

var n,i,k,p,mx,mxj: integer;

   s: array[1..100000] of char;

begin

 readln(n);

 for i:=1 to n do read(s[i]);

 k:=0; p:=0;

 mx:=0; mxj:=0;

 for i:=1 to n do

 begin

   if s[i]='G' then k:=k+1

   else

   begin

     if p=1 then

     begin

       p:=0;

       if s[i-1]='G' then  

       if (k>mxj) then mxj:=k;

       k:=0;

     end

     else

     begin

       if k>0 then p:=1;

       if k>mx then mx:=k;

     end;

   end;  

 end;

 if mx>mxj then k:=mx+1

 else k:=mxj+1;

 if k=1 then k:=0;

 writeln(k);

end.

program first;

var a:array[1..100] of integer;

i,s,k,n,c:integer;

sr:real;

begin

read(n); {кол-во элементов массива}

for i:=1 to n do

read(a[i]); {ввод массива}

read(c); {ввод числа C}

s:=0; k:=0;

for i:=1 to n do

if (a[i]>c) then begin s:=s+a[i]; k:=k+1; end;

sr:=s/k; {считаем среднее арефмет.}

writeln(sr); {выводим ср. арефм.}

for i:=1 to n do

if a[i] mod 2<>0 then write(a[i],' '); {делаем 2 пункт}

writeln;

s:=0; k:=0; {обнулим чтобы использовать еще раз}

for i:=1 to n do

if a[i] mod 2<>0 then begin s:=s+a[i]; k:=k+1; end;

sr:=s/k;

writeln(sr);

end.