:у вас есть доллары. вы хотите обменять их на рубли. есть информация стоимости купли-продажи в банках города. в городе n банков. составьте программу, определяющую, какой банк выбрать, чтобы обменять доллары на рубли наиболее выгодно. язык программирования паскаль abc

Program p1; const n=5; var i: integer;     kurs: array[1..n] of real;     summa,r,bank: real; begin   writeln('введите сумму: ');   read(summa);   for i: =1 to n do  begin   writeln('введите курс в ',i,' банке: ');   read(kurs[i]);   end;     r: =0;   for i: =1 to n do  begin   if (kurs[i]*summa)> r then   begin   r: =kurs[i]*summa;   bank: =i;   end;   end;     writeln('выгодно в банке №: ',bank); end.