Заполнить массив n*n по правилу

[Albert341]

2 2 2 ... 2
0 4 4 ... 4
0 0 8 ... 8
.. .. .. ... ..
0 0 0 ... 2(в степени n)
Я нашел в инете на паскале ну я не знаю правильно ли мне нужно на delphi помогите сделать
1)это на паскале

uses CRT;
cоnst n=5; m=5;
var i,j,k:integer;
a:array [1..n,1..n] of integer;

begin
CLRSCR;

for i:=1 to n do
begin

for j:=1 to n do
begin
if i<j>=z then
a[i,j]:=k else a[i,j]:=0;
k:=k*2;
end;

Пожалуйста завтра зачет а у меня программы нет помогите пожалуйста

[Stilet]

правильно ли

Нет. синтаксически не правильно.
Вот на Делфи:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,j:integer;
begin
for i:=1 to n do begin
 for j:=1 to n do begin
   if j<i then write(0,' ') else write(i*2,' ');
 end;writeln;
end;
readln;
end.

Консольная. Твоя задача подправить под массивы, Параметры в Write вводить в массив, всего то

[Albert341]

а почему она выдает ошибку?

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if j<i then write(0,' ') else write(i*2,' ');
end;writeln;
end;
readln;


end;

[Stilet]

а почему она выдает ошибку?

Еще раз самым найвнимательнейшим образом читаем что я написал, в часности первое слово в последнем предложении

[Grag]

Сообщение от Albert341

2 2 2 ... 2
0 4 4 ... 4
0 0 8 ... 8
.. .. .. ... ..
0 0 0 ... 2(в степени n)

и вот это

else write(i*2,' ');

Истина явно где-то не рядом...

for i:=1 to n do
  begin
    for j:=1 to n do
      if j<i 
      then write(0,' ') 
      else 
        begin
            a[i,j]:=2 shl (i-1);
            write(a[i,j],'  ')
        end;        
      writeln
  end;

[Stilet]

Истина явно где-то не рядом...

А-а-а да да да... Недосмотрел на ночь глядя.