Если дракону сто лет или меньше, то у него 3N голов.
Если ему больше ста лет, то у него 300+2(N-100) голов.
Program n1;
var a,v,p,s: real;
begin
write('введите рост: ');
readln(a);
write('введите возраст: ');
readln(v);
write('введите признак(1 - мужчина, 0 - женщина): ');
readln(p);
if p=1 then s:=(3*a-450+v)*0.25+45;
if p=0 then s:=(3*a-450+v)*0.225+40.5;
writeln('идеальный вес: ',s);
end.
Var a1,a2,a,n:integer;
begin
a1:=1; a2:=1;
n:=2;
while a2<=100 do
begin
a:=a1+a2;
a1:=a2;
a2:=a;
n:=n+1;
end;
writeln('n = ',n,' an = ',a2);
end.
Результат:
<span>n = 12 an = 144</span>