Помогите человеку(Pascal)

[DAHuJIA]

Есть прога на паскале:

Код: Выделить всё

program treugolnik;
Uses crt;
Var x,y : integer;
    z : longint;
Begin
for y:=5 to 23 do
 begin
 x:=round (y*3.5);
 gotoxy(x,y);
 write('Ж');
 for z:=1 to 50000 do begin end;
 gotoxy(x,y);
 write ('Ж');
 end;
 
for y:=23 downto 5 do
 begin
  x:=round (y*3.5);
  gotoxy(x,y);
  write('Ж');
  for z:=1 to 50000 do begin end;
  gotoxy(x,y);
  write ('Ж');
  end;
for y:=5 to 23 do
 begin
  x:=81-round (y*3.5);
  gotoxy(x,y);
  write('Ж');
  for z:=1 to 50000 do begin end;
  gotoxy(x,y);
  write ('Ж');
  end;
 
  End.
 
 


По заданию надо что бы выводил треугольник, а получается крест . Где собака зарыта?

[brain]

Сам писал?)
попробуй в 3 цикле
for y:=5 to 23 do
begin
x:=162-round (y*3.5);
Во 2 цикле:
for x:=16 to 81 do
begin
y:=5;

Вроде должен получица треугольник