15 . (паскаль) для каждой составить программу, которая выводит значение true или false. 1) треугольник со сторонами a, b, c - равносторонний. 2) данные числа х, у являются координатами точки, лежащей в первой координатной четверти.

//PascalABC.Net 3.2
{1}
begin
var a:=readArrreal('Вводите: ', 3);
write ((a[0]=a[1]) and (a[1]=a[2]));
end.

{2}
begin
write ((readreal('x =')>0) and (readreal('y =')>0));
end.