решите ПОЖАЛУЙСТА. Заблаговременно СПАСИБО!!!!!

var i,j:integer;

begin

for i:=0 to 3 do

begin

for j:=i to 2 do write (' ');

write('/');

for j:=1 to i do write ('  ');

write('\');

writeln;

end ;

for i:=0 to 3 do

begin

for j:=1 to i do write (' ');

write('\');

for j:=i to 2 do write ('  ');

write('/');

writeln;

end ;

end.