напишите программу ПАСКАЛЬ. вот задача. Ввести натуральное число N. Вывести треугольник, содержащий N
строк с чередующимися четными и нечетными числами меньшими N с
уменьшением их количества в каждой новой строке на единицу.

write(j:3);end; вместо этого нужно записать две строки

if(i mod 2 = 1)and (j mod 2 = 1) then write(j:2,'<');

if(i mod 2 = 0)and (j mod 2 = 0) then write(j:2,'<');end;

плопробую

спасибо все верно

const nx=30;var i,j,n,m:integer;A:array[1..nx,1..nx] of integer;begin write(' Введите  n');read(n);m:=n;for i:=1 to n do beginfor j:=1 to m do beginwrite(j:3);end;writeln;m:= m -1;end;end.