Имя рост цвет глаз возвраст вес курс
марат 1,7м зеленый 18 65 1
марал 1,55м карий 21 56 3
1024байта - 1024*8=8192 бит
1024 кбайта - 8192000 бит
1024 гбайта - 8192000000000 бит
type diapazon=-20..60;
var a: array [1..15] of diapazon;
i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
if (max/min) > 2 then writeln('Верно') else writeln('Неверно');
end.