---

Aš vėl turiu problemų su pascaliu :D
Va programa
program rombas;
var n, {rombo krastines ilgis zvaigzdutemis}
i, j, x: integer;
begin
read (n);
j:=1;
for i := -n to n do
x := i * j;
if x < 0 then x := - n;
if x <= n then write ('*')
else writeln ('');
readln();
end.

Užduotis:
Atlikus šią programą rombas turi būti atspausdinamas žvaigždutėmis, tačiau programoje yra klaidų. Štaisykite jas.

Gal kas galit padėt?:]