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

Program preobraz;
uses crt;
const n = 20; {Сколько чисел будет в массиве}
var
    i,n: integer;
    a,b: array[1..n] of integer;
 
begin
clrscr;
 
for i:=1 to n do Read(a[i]);
WriteLn;
for i:=1 to n do Read(b[i]);
WriteLn;
for i:=1 to n do
    if a[i]<=0 then b[i]:=10*b[i]
               else b[i]=0;
for i:=1 to n do Write(a[i]);
WriteLn;
for i:=1 to n do Write(b[i]);
 
ReadLn;
 
end.