С творчеством М.В. Ломоносова и некоторыми его произведениями мы знакомы. Вспомните, что вам известно о Ломоносове?

ПаскальАВС.НЕТ

var
  a:array[1..7,1..7]of integer;
  i,j:integer;
begin
j:=7;
for i:=1 to 7 do
  begin
  a[i,i]:=1;
  a[i,j]:=1;
  j:=j-1;
  end;
for i:=1 to 7 do
  begin
  for j:=1 to 7 do  write(a[i,j]:3);
  writeln;
  end;
end.