Зависимость роста от веса, даже не знаю с чего начать Опции

[Feagor]

все условие в прикрепленном файле. Подскажите хотябы с чего начать....

Сообщение отредактировано: Feagor - 2.01.2008 19:12

[Feagor]

который раз перечитываю - немогу понять что от меня хотят....все что смог написать(до того момента пока я понимаю что делать)

uses crt;
type Trv=record
h,w:integer;
end;
var i,n:integer;
    a:array[1..100] of trv;
begin
  clrscr;
  writeln('Insert count');
  readln(n);
  for i:=1 to n do
  begin
        writeln('Insert ',i,' height');
        read(a[i].h);
        writeln('Insert ',i,' weight');
        read(a[i].w);
  end;
end.