нехай в комірці Т6 знаходиться значення першого катета прямокутного трикутника в комірці С6 значення гіпотенузи за якою формулою знайти значення другого катета​

1) SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color
2)  LoadPicture(fname) n:=LoadPicture(fname) – загружает рисунок из файла с именем fname в оперативную память и возвращает описатель рисунка в целую переменную n; если файл не найден, то возникает ошибка времени выполнения. Загружать можно рисунки в формате .bmp, .jpg или .gif. Загрузка готового рисунка
3) Вывод текста в графическое окно TextOut(x,y,’строка’); - выводит строку текста в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст)
4) DrawPicture(n,x,y); Выводит рисунок с описателем n в позицию (x,y) графического окна. Вывод рисунка в графическое окно uses GraphABC
5) Заливка кистью SetBrushPicture(‘fname’) - устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname, при этом текущий цвет кисти при закраске игнорируется