Составьте программу для определения суммы денег, получаемой авиакомпанией от продажи билетов на рейс из лондона в нью-йорк, если в самолёте три четверти пассажиров имеют билеты первого класса, стоимостью и x рублей за каждый. остальные пассажиры имеют билеты второго класса, которые дешевле билетов первого класса на 20%. количество пассажиров и стоимость билетов первого класса вводятся с клавиатуры.

Начало введите  б1                   - цена билета 1 класса введите  к                     - число пассажиров в салонек1=к*0,75                     - число пассажиров 1 классас1=к1*б1                     - сумма за билеты 1го классак2=к-к1                           - число пассажиров 2 классаб2=б1*0,8                   - цена билета 2 классас2=к2*б2                   - сумма за билеты 2 классас=с1+с2                     - общая сумма напечатать  конец

Uses crt; const     n = 13; var     a: array[1..n] of integer;     i,k: integer;     s: real; begin randomize; clrscr; for i: = 1 to n do       begin       a[i]: =random(21)-10;       write(a[i],' ')       end; writeln; i: =1; k: =0; while (a[i]> =0)and(i< n) do     begin     k: =k+1;     i: =i+1     end; if a[i]> =0 then k: =k+1; writeln('k = ',k); s: =0; for i: = i+1 to n do       s: =s+a[i]; writeln('s = ',s: 0: 3); readln end.

Var x1,y1,x2,y2,x3,y3,r1,r2,r3: real; min,p: integer; begin repeat   write('x1, y1: ');   readln(x1,y1);   write('x2, y2: ');   readln(x2,y2);   write('x3, y3: ');   readln(x3,y3);   r1: =sqrt(x1*x1+y1*y1);   r2: =sqrt(x2*x2+y2*y2);   r3: =sqrt(x3*x3+y3*y3);   writeln('r1 = ',r1: 5: 2,' r2 = ',r2: 5: 2,' r3 = ',r3: 5: 2);   if r1< r2 then min: =1 else min: =2;   if r3< min then min: =3;   writeln('к началу координат ближе точка № ',min);   write('хотите повторить? (1-да, 0-нет) ');   readln(p); until p< > 1; end. пример: x1, y1: 3 -2 x2, y2: -4 1 x3, y3: 5 0 r1 =   3.61 r2 =   4.12 r3 =   5.00 к началу координат ближе точка № 1 хотите повторить? (1-да, 0-нет) 1 x1, y1: 8 0 x2, y2: -3 4 x3, y3: 5 -2 r1 =   8.00 r2 =   5.00 r3 =   5.39 к началу координат ближе точка № 2 хотите повторить? (1-да, 0-нет) 0