Найти площадь фигуры, ограниченной линиями: y=x^2+2, y=0, x=1, x=2

Встретились три друга:скульптор Белов,скрипач Чернов и художник Рыжов."Замечательно,что один из нас блондин,другой брюнет,а третий рыжеволосый,но ни у одногонетволос цвета,на который указывает его фамилия",заметил брюнет."Ты прав____ сказал Белов.Какой цвет волос у художника?

Много баллов(78) за блок-схему...завтра курсовую сдавать :(

программа на паскале

uses crt;

type mas=array [1..100] of integer;

var

b:mas;

p,i,n:integer;

procedure vvod (x:mas;k:integer);

var i,p:integer;

begin

for i:=1 to n do begin

write('Vvedite chislo: ');

readln(x[i]);

end;

for i:=1 to n do

write(x[i]:3);

for i:=n downto 1 do

if x[i]<0 then

p:=i;

writeln;

write('= ',x[p-1]);

writeln;

readln;

end;

begin

clrscr;

write('Vvedite kol-vo chisel: ');

readln((n));

vvod (b,n);

readln;

end.

Боковая сторона равнобедренного треугольника равна 29 см, а высота, проведенная к основанию, равна 21 см. Найдите основание треугольника.