Из ассортимента конфет, издаваемых кондитерской фабрикой, избрать те, цена которых от

type konf=record
nbsp;nbsp;name: string[45];
nbsp;nbsp;nbsp;cena:integer;
nbsp;nbsp;nbsp;god:integer;
nbsp;nbsp;nbsp;mag:integer;
end;
var kon: array [1..100] of konf;
nbsp;nbsp;nbsp;I,k,max: integer;
nbsp;nbsp;nbsp;a:array[1..100]of integer;
begin
nbsp;nbsp;nbsp;for I:=1 to 3 do
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln (введите заглавие);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;readln (kon[I].name);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln (введите стоимость);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;readln (kon[I].cena);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln (введите срок годности);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;readln (kon[I].god);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln (введите номер магазина);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;readln (kon[I].mag);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
for i:=1 to 3 do
if (kon[I].cenagt;=100) and (kon[I].cenalt;=200) then begin
writeln(kon[I].name);
writeln(kon[I].god);
writeln(kon[I].mag);end;
readln;
end.