Побудувати алгоритм у вигляді блок-схеми для розв'язання задач: Знайти периметр рівностороннього трикутника.

 var i,N:integer;
begin 
веедите натуральное число не превосходящее 1000'); 
readln(N); 
writeln('Входное число=',N); 
for i:=0 to (N-1) do write(i,' ');
 end.

Пример работы: 
веедите натуральное число не превосходящее 1000
5
Входное число=5
0 1 2 3 4 
P.S.Если в условии от 1-го, а не от нуля, for i:=0 to (N-1) do write(i,' '); замени на for i:=1 to (N-1) do write(i,' ');

Лишняя информация, если тебе не нравится информатика: на сколько я понял, ты не мог понять как вывести сначала число 5. В моей программе это делает оператор writeln(N); Именно Writeln, а не Write. Почему? Потому что writeln произошло от слова line - линия, оно занимает целую строку. А Write мастит все в одну строку. Если нужно будет что-то рассказать и это будет в моих силах, я с радостью любому желающему.

Unit Main;
interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;
type  TForm1 = class(TForm)    Memo1: TMemo;    Edit1: TEdit;    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;
var  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);var  i, j, n: integer;  min, max, var_bl: real;  a: array of array of real;beginMemo1.Clear;if TryStrToInt(Edit1.Text,n) thenbegin  n:=StrToInt(Edit1.Text);  if n<1 then    begin      Application.MessageBox('Ошибка!','',0);      Exit;    end;    SetLength(a,n);      for i:= 0 to n-1 do          SetLength(a[i],n);              Randomize;      for i:= 0 to n-1 do    for j:=0 to n-1 do      a[i,j]:=Random(100)-30;    min:= a[0,0];    max:= a[0,0];    for i:= 0 to n-1 do      begin        for j:=0 to n-1 do          begin            //Memo1.Text:=Memo1.Text+FloatToStrF(a[i,j],ffFixed,5,3)+' ';//Форматированный вывод            Memo1.Text:=Memo1.Text+FloatToStr(a[i,j])+' ';  //обычный вывод          end;        Memo1.Lines.Add('');      end;
  for i:= 0 to n-1 do    for j:=0 to n-1 do      begin        if(a[i,j]<min) then          min:=a[i,j];        if(a[i,j]>max) then          max:=a[i,j];      end;          Memo1.Lines.Add('Min='+FloatToStr(min)+', Max='+FloatToStr(max));    for i:= 0 to n-1 do    for j:=0 to n-1 do      begin        if(a[i,j]=min) then        begin          a[i,j]:= max;          Continue;        end;        if(a[i,j]=max) then          a[i,j]:=min;      end;      Memo1.Lines.Add('');    Memo1.Lines.Add('');      Memo1.Lines.Add('Были поменяны наименьший и наибольший элемент массива');      Memo1.Lines.Add('');    for i:= 0 to n-1 do      begin        for j:=0 to n-1 do          begin            //Memo1.Text:=Memo1.Text+FloatToStrF(a[i,j],ffFixed,5,3)+' ';//Форматированный вывод            Memo1.Text:=Memo1.Text+FloatToStr(a[i,j])+' ';  //обычный вывод          end;        Memo1.Lines.Add('');      end;    Memo1.Lines.Add('');    Memo1.Lines.Add('');    Memo1.Lines.Add('');    Memo1.Lines.Add('');end  else    Application.MessageBox('Ошибка!','',0);end;
end.