Даны координаты трех вершин треугольника. Найти дины всех его сторон. Написать функцию  function OtrLength(x1,y1,x2,y2:integer):real

Используя процедуру решения квадратного уравнения, напишите программу решения биквадратного уравнения   ax:4 + bx:2 +c=0

Дано натуральное число N. Среди чисел 1, 2, 3, …., N найти все, которые можно представить в виде суммы квадратов двух натуральных чисел. Описать функцию function Is Square(x:real):boolean

Написать функцию, находящуюю минимальное из четрырех введенных чисел. fuuction Min(a,b,c,d:real):real