2вариант в кинотеатре на одном ряду сидят пять девушек. у саши русый цвет волос. она работает продавцом. у той девушки, что сидит посередине — красная блузка. катя - брюнетка. таня, у которой оранжевая блузка, сидит сразу слева от той, которая работает продавцом. непосредственно справа от менеджера, сидит девушка, обутая в босоножки. ира обута в туфли. рядом с администратором – девушка в желтой блузке. девушка с рыжим цветом волос обута в сандалии. у даши каштановый цвет волос и она сидит сразу справа от той, которая носит босоножки. девушка в синей блузке носит сабо. девушка в белой блузке сидит по соседству с той, у которой каштановые волосы. с краю сидит повар. красная блузка у блондинки. повар и администратором сидят рядом. русые волосы у той девушки, которая обута в сабо. кто носит ? кто работает секретарем?

Сидят:
Таня                  Саша          Ира           Катя               Даша
оранж блуза     синяя        красная      белая            жёлтая
секретарь       продавец     менедж.    админист.      повар
сандалии        сабо            туфли         босонож        балетки
 рыжая             русые          блонд         брюнетка       каштан

Даша носит балетки,  Таня секретарь

1)

var

i, n, a: integer;

begin

readln(n);

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 if a mod 10 = 4) and (a > 10) and (a < 100) then

   writeln(a);

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

end.

2)

var

i, n, a, z, min: integer;

begin

readln(n);

z:= 0;

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 z:= z + 1;

 if (i <> 0) and (z = 1) then

   min:= a;

 if (a < min) then min:= a;

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

writeln(min)

end.

1)

var

i, n, a: integer;

begin

readln(n);

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 if a mod 10 = 4) and (a > 10) and (a < 100) then

   writeln(a);

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

end.

2)

var

i, n, a, z, min: integer;

begin

readln(n);

z:= 0;

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 z:= z + 1;

 if (i <> 0) and (z = 1) then

   min:= a;

 if (a < min) then min:= a;

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

writeln(min)

end.