Нужно написать рабочую программу Delphi чтобы считала стоимость окон.

program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln('введите количество значений массива n'); readln(n); write('введите элементы массива а: '); for i: =1 to n do readln(a[i]);   writeln('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+b[i]; writeln('сумма четных значений =', s); end.

у васи флешка желтая. и больше флешки пети. значит, у пети или 4гб или 8гб.

егору не понравилась красная, значит красная у пети, а у егора зеленая.

суммарное колличество флешок васи и пети меньше, чем у егора,значит у егора флешка на 16гб, зеленая. у васи 8гб,желтая. и у пети 4гб, красная.

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.

var s,p: real;

i: integer;

begin

  p: =1;

  for i : = 1 to 14 do

      if i mod 2 = 0 then p: =p*i

      else s: =s+i;

  writeln(p,s);

end.