Даны две последовательности целых чисел а1, а2,…, аn и b1, b2,…, bn. Преобразовать последовательность b1, b2,…, bn по следующему правилу: если ai ≤ 0, то bi увеличить в 10 раз, в противном случае bi заменить нулем (i = 1, 2, …, п) — Pascal(Паскаль)

Program posled;

var
  a, b: array [1 .. 100] of integer;
  n, i: integer;

begin
  write('vvedite n=');
  readln(n);
  writeln('massiv a=');
  for i := 1 to n do
  begin
    a[i] := random(51) - 10;
    write(' ', a[i]);
  end;
  writeln;
  writeln('massiv b=');
  for i := 1 to n do
  begin
    b[i] := random(51) - 10;
    write(' ', b[i]);
  end;
  for i := 1 to n do
    if a[i] <= 0 then
      b[i] := b[i] * 10
    else
      b[i] := 0;
  for i := 1 to n do
    write(b[i], ' ');
  readln;

end.