Ребят есть простые задачи.

[Prom]

Доброго времени суток, дорогой программист!
Мне очень нужна ваша помощь в решении этих задач. У меня есть информация что они довольно простые, но к великому сожалению сам паскалем фактически не владею. Поэтому прошу вас!

И так задачи:
№1. Даны три угла треугольника (в градусах). Определить, существует ли такой треугольник. Если да, то будет ли он прямоугольным.
№2. Определить, является ли треугольник со сторонами a, b, c, равносторонним.
№3. Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, т.е. имеют ли они равные площади.(S=(дальше все под корнем)p(p-a)(p-b)(p-c), где p- полупериметр треугольника.)
P.S. Я понимаю что голодающему дают удочку, а не рыбку, но все же очень прошу помочь мне с этими программами мне их завтра сдавать, а я обещаю научиться работать в паскале.

[JinglsOrg]

Ну если на чесном слове..
1:

program one;
var
a,b,c:integer;
begin
write('Введите углы треугольника.');
readln(a,b,c);
if (a+b+c=180) then
 begin
  Write('Такой треугольник существует и он ');
  if (a=90)or(b=90)or(c=90) then Writeln('прямоугольный.') else
    writeln('не прямоугольный')
 end else
  Writeln('Такой треугольник построить нельзя.');
end.

2:

program two;
var
a,b,c:integer;
begin
write('Введите стороны треугольника.');
readln(a,b,c);
if (a=b)and(b=c) then writeln('Треугольник равносторонний.') else Writeln('Треугольник не равносторонний.');
end.

3:

program three;
var
a1,b1,c1,a2,b2,c2:integer;
s1,s2,p1,p2:real;
begin
writeln('Введите стороны первого треугольника.');
readln(a1,b1,c1);
writeln('А теперь второго.');
readln(a2,b2,c2);
p1:=(a1+b1+c1)/2;
p2:=(a2+b2+c2)/2;
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1));
s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2));
if (s1=s2) then Writeln('Треугольники имеют равные площади.') else Writeln('Площадь двух треугольников разная.');
end.

[Prom]

спасибо за помощь

[phomm]

беру первый пост на цитату для тем, создаваемых невежливыми студентами

Спасибо Вам, Prom