[andbrey]

Кривовастенько пока вышло, толи ещё будит

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  M,Summa:Real;
    i,k,j:Integer;

implementation

{$R *.dfm}
Begin
Write('Введите M');
    Readln(M);
    {Прямой порядок}
    k:=0;
    Summa:=0;
    repeat
        k:=k+1;
        Summa:=Summa+k;
        Writeln('№ ',k,'  Elem=',k,'   Summa=', Summa:0:8);
    Until( Summa > M );
    {Прямой порядок}
     Writeln('Нажмите Enter');
     Summa:=0;
     j:=0;
    {Сумма обратный порядок}
    For i:=K downto 1 Do 
        Begin
        j:=j+1;
        Summa:=Summa+i;
        Writeln('№ ',i,'  Elem=',i,'   Summa=', Summa:0:8);
    End;
   {Сумма обратный порядок}
End.

end.

Я просто частенько зависаю у компа)