Évikeee! Itt van a házid:

program kozott;
uses crt;
var a,b:array[1..100] of integer;
    i,j,c,n:integer;
begin
      clrscr;
      write('Mekkorák legyenek a számsorozatok? '); readln(n);
      for i:=1 to n do begin
         write('Kérem az a(',i,') elemet: '); readln(a[i]); end;
      for i:=1 to n do begin
         write('Kérem a b(',i,') elemet: '); readln(b[i]); end;
      write('Kérem a "c" sz mot: ');  readln(c);
      clrscr;
      for i:=1 to n do if (a[i]<c) and (b[i]>c) then writeln(i);
      readln;
end.

program vissza;
uses crt;
var i,n:integer;
    a:array[1..100] of integer;
    t:boolean;
begin
      clrscr; t:=true;
      write('Mekkora legyen a sorozat? '); readln(n);
      for i:=1 to n do begin
         write('Kérem az a(',i,') elemet: '); readln(a[i]); end;
      for i:=1 to n do
         if a[i]<>a[n+1-i] then t:=false;
      if t=true then writeln('Visszafelé is ugyanaz') else
         writeln('Visszafelé nem ugyanaz'); readln;
end.

program darab;
uses crt;
var i,n,poz,neg,null:integer;
    a:array[1..100] of integer;
begin
      clrscr; poz:=0; neg:=0; null:=0;
      write('Mekkora legyen a sorozat? '); readln(n);
      for i:=1 to n do begin
         write('Kérem az a(',i,') elemet: '); readln(a[i]); end;
      for i:=1 to n do
          if a[i]<0 then inc(neg,1) else
                if a[i]>0 then inc(poz,1) else
                     inc(null,1);
      writeln('Negatív: ',neg);
      writeln('Nulla: ',null);
      writeln('Pozitív: ',poz);
      readln;
end.

program raktar;
uses crt;
var i,n:integer; ossz:longint;
    a,b:array[1..100] of integer;
begin
      clrscr; ossz:=0;
      write('Hány terméket regisztráljunk? '); readln(n);
      for i:=1 to n do begin
         write('Kérem a(z) ',i,'. termék mennyiségét: '); readln(a[i]);
         write('Kérem a(z) ',i,'. termék egységárát: '); readln(b[i]); writeln; end;
      for i:=1 to n do ossz:=ossz+(a[i]*b[i]);
      writeln('Összérték: ',ossz,'.-'); readln;
end.