Pascalio uzdavinys

Sveiki, reikia fast parasyti pascalio programa <_<

Duotas masyvas b (m) neigiamus masyvo elementus pakeiskite priesingais, teigiamus ju kvadratais, nulius duotu skaiciumi n

jai galit padekit, skolingas neliksiu :lol:

reikia per ~1h

program asd;
var b:array[1..20] of integer;
var i, n:integer;
begin
for i:1 to 20 do
begin
writeln('Ivesk skaiciu');
readln(a[i]);
end;
writeln('Ivesk skaiciu, kuriuo nori pakeisti masyvu nulius');
readln(n);
for i:1 to 20 do
if a[i] < 0 then
a[i] := a[i] * -1
else if a[i] > 0 then
a[i] := a[i] * a[i] else
a[i] := n;
writeln('Naujas masyvas:');
for i:=1 to 20 do
write(a[i], ' ,');
readln;
end.

Kazkas panasaus. Gali buti sintakses klaidu, seniai neprogramavau pascaliu <_<