Pascal программу с case нужно сделать, условия. пусть время суток обозначено номерами: 1 – утро, 2 – день, 3 – ве- чер. билет в кино на утренний сеанс стоит (детский – 25 р., взрос- лый – 70 на дневной сеанс (детский – 50 р., взрослый – 100 а на вечерний (детский – 70 р., взрослый – 100 какова выручка кинотеатра в одно из время суток, если в кино пришло n детей и m взрослых.

Var t,n,m,s:integer;
begin
write('t (1,2,3) = ');
readln(t);
writeln('n, m:');
readln(n,m);
case t of
 1: begin s:=25*n+70*m; writeln('Утренняя выручка = ',s); end;
 2: begin s:=50*n+100*m; writeln('Дневная выручка = ',s); end;
 3: begin s:=70*n+100*m; writeln('Вечерняя выручка = ',s); end;
 else writeln('Ошибка ввода');
end;
end.

Пример:
t (1,2,3) = 1
n, m:
10 5
Утренняя выручка = 600

Var
  k,m,n: byte;
begin
  write('Введите время суток: ');
  readln(k);
  write('Детей: ');
  readln(n);
  write('Взрослых: ');
  readln(m);
  case k of
    1: write('Выручка кинотеатра: ', (n*25)+(m*70)'руб');
    2: write('Выручка кинотеатра: ', (n*50)+(m*100)'руб');
    3: write('Выручка кинотеатра: ', (n*75)+(m*100)'руб');
  end;
end.

№1
DATA 11,12,14,9,7,6,11,-20,55,333,222,111,11,900,-100,23,16,17,30,21,22,24,55,4444,500
DIM A(25)
FOR I=1 TO 25
READ A(I)
PRINT A(I)
NEXT
FOR I=1 TO 25  
FOR J=1 TO 24
IF A(J)<A(J+1)
THEN SWAP A(J),A(J+1)
NEXT
NEXT
PRINT "SUMMA 4ETIREH NAIBOLSHIH=";A(1)+A(2)+A(3)+A(4)
PRINT "SUMMA 4ETIREH NAIMENSHIH=";A(25)+A(24)+A(23)+A(22)
№2
CLS
INPUT "n"; n
DIM a(1 TO n), B(1 TO n) FOR i = 1 TO n a(i) = INT(RND * 100) B(i) = INT(RND * 100) PRINT a(i), B(i) NEXT i imin = 0 min = B(1) FOR i = 1 TO n IF B(i) < min THEN imin = i IF i > imin THEN s = s + a(i): k = k + 1 NEXT i sr = s / k PRINT PRINT "imin"; imin PRINT "Sr"; sr

67= 1000011
95=10112
103=1213
246=366
421=1A5
305=131
525=1350
Правило:
Для того, чтобы перевести число из десятичной системы счисления, в любую другую, нужно выполнять целочисленное деление исходного числа на основание той системы счисления, в которую нужно перевести число. При этом важен остаток от деления и частное. Частное нужно делить на основание до тех пор, пока не останется 0. После этого все остатки нужно выписать в обратном порядке - это и будет число в новой системе счисления.

если Остаток больше десяти то есть система счисления в которую переводим к примеру 16 то остатку  10=А; 11=B; 12=C; 13=D; 14=E; 15=F;