Нарисовать фигуру в паскаль

Pascal, Delphi, Lazarus Pascal
#1

image
нужно без “use” нарисовать

#2

а с ним как?))

#3

не знаю, просто смотрела тут другие фигуры и многие писали программу с ним

#4

Попробуйте такой код:

var i,j,n:integer;
begin
  ReadLn(n);
  for i:=1 to n do begin
    for j:=1 to i-1 do Write(' ');
    Write(i:1); 
    if i<n then begin
       for j:=1 to (n-i)*2-1 do Write(' ');
       WriteLn(i)
    end;
  end;
  ReadLn
end.

Хотя, конечно, непонятно, зачем Вы пытаетесь получить готовый код в том случае, когда научиться программировать нужно Вам. Если Вы этот код скопируете и сдадите своему преподавателю, Вы же от этого Паскаль не выучите. Медвежья услуга получается с моей стороны…

#5

спасибо большое ,я уже сделала, у вас немного не то