Безусловный цикл - цикл, выход из которого в программе не предусмотрен. Цикл с предусловием - цикл, условие которого проверяется перед выполнением тела цикла. С постусловием - проверяется после.
{конструкция else для того если будут введены отрицательные x y} var x,y:real;begin readln(x,y); if (x*x*x*x*x+y)>0 then writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x))) else writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x))); <span>end.</span>
Var x,y,c,k,i,a,b:integer; begin readln(x,y,a,b); If (x mod 2=0) or (y mod 2=0) then c:=(x+y) div 2 else c:=x mod y; For i:=1 to 15 do k:=k+i; While x<=100 do x:=x*2; a:=a+b; b:=a-b; a:=a-b; Writeln(c,' ',k,' ',x,' ',a,' ',b); end.
Собака зарыта в строчках var a:array of integer ... read(a[i][j])
Смысл в том, что a, похоже, объявлен как одномерный массив, а по твоей задумке он двумерный. Поставь там инициализацию двумерных массивов. (В PascalABC.Net, если ты тоже в этой среде и этом диалекте, то там я ручаюсь, что там правильно <span>var a:array [,] of integer</span>. Хотя допускаю, что везде одинаково).