ВОТ ЧТО ПОЛУЧИТСЯ
begin B:=A[MAXI,J]; A[MAXI,J]:= <span>PAR(var A:ARR):</span>
Ну? Понятно, 16 рядов, 32 места в каждом... продали ОДИН БИЛЕТ В ВОСЬМОМ РЯДУ, номер 8 ... и что ??? Какой вопрос задачи?;)
Program stoim;
const s=1.4;
var k,v:real;
begin
writeln('vremya min');
readln(v);
writeln('vyhodnoy - 1, rabochiy den - 2);
readln(k);
if k=2 then write('stoimost = ',v*s,' rub')
else write('stoimost = ',v*s*0.2,' rub');
readln;
end.
Нулевой остаток целочисленного деления на 2 определяет четность числа.