Написать программу в Pascal ABC, Заранее спасибо)

 
1 -  Даны три числа а, b, с, удовлетворяющие аксиоме треугольника и
число р. Выполнить следующие действия: если р=1 - найти
периметр треугольника; если р=2 - найти площадь треугольника; если р=3
- найти угол а. Иначе напечатать слово "треугольник". 

2 - Составить программу для
вычисления значений функции F(x) на отрезке[a,b]
с шагом h. Результат 
представить в виде таблицы, первый столбец которой - значение аргумента,
второй – соответствующие значение функции F (x) =  2sin2 x+1.