помогите решить 2 задачки в Турбо Паскале

[Deco18]

1)Даны несколько переменных.Вывидите из них отрицательные.
2)Даны марки нескольких компьютеров.Определить,есть ли среди них "Apple"
зарание спасибо

[kiloz]

1)Даны несколько переменных.Вывидите из них отрицательные.

programm l1;
user ctr; //или что там, давно в Pascal не писал
var n1,n2,n3,n4,n5: Integer;
begin
  if (n1<0) then writeln(n1);
  if (n2<0) then writeln(n1);
  if (n3<0) then writeln(n1);
  if (n4<0) then writeln(n1);
  if (n5<0) then writeln(n1);
end.

или так:

programm l1;
user ctr; //или что там, давно в Pascal не писал
var 
  n: array [0..255] of Integer; //если не переменные использовать а массив
  m,i: Byte;
begin
  write('Enter count:'); readln(m);
  for i:=0 to m do begin
    write('N[',i,']='); readln(n[i]);
  end;
  writeln;
  for i:=0 to m do
    if (n[i]<0) then write(n[i],'  ');
end.

[Deco18]

ооооо спасибо
большое))))

[capta1n]

копипаст рулит посмотри - ты выводишь одно и то же число + а значения переменных какие? че-т просто сразу сравнение идет

[capta1n]

1)

program project1;
const
  n = 5; {Если задаете больший диапозон - то соответственно в массиве сделайте столько же элементов}
  a : array [1..n] of real = (2,-0.1,-5,3,0.6);
var
 i : 1..n;
begin
  for i:=1 to n do
   if a[i]<0 then writeln (a[i]:0:1);
  readln
end.

[Deco18]

я ваще этот паскаль непанимаю(((((этовторая задача?

[capta1n]

2)

program project2;
const
  n = 5; {Если задаете больший диапозон - то соответственно в массиве сделайте столько же элементов}
  m = 10;
  comp = 'APPLE';
  a : array [1..n] of string[m] = ( 'Celeron',
                                               'Intel',
                                               'Apple',
                                               'Athlon',
                                               'Uncle Benz :)');
var
 i : 1..n;
 k : 0..m;
 flag : boolean;
begin
  for i:=1 to n do
  begin
   flag:=false;
   if upcase(a[i][1])=comp[1] then
    for k:=2 to length(a[i]) do
     if upcase(a[i][k])=comp[k] then flag:=true
                                else flag:=false;
    if flag then writeln (comp,' on ',i,' pozition ')
  end;
  readln
end.

[capta1n]

я отмечаю перед кодом номер - не забывайте оставлять отзывы я надеюсь, я вам помог