Простые задачи для паскаля.

[Prom]

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

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

[Alt]

Задачи действительно простые. Более того - они стандартные. Поэтому полчасика с гуглом в обнимку и решения будут ваши с потрохами.

[tools]

Такой вот вариант набросал, подойдет?

var
 angle_1,angle_2,angle_3:shortint; //углы
 a,b,c,a2,b2,c2:shortint;				   //стороны

function IsTriangle(alph,bet,gamm:shortint):boolean;
begin
  if alph+bet+gamm<>180 then
     IsTriangle:=false
  else
     IsTriangle:=true;     
end;

function right_angle(alph,bet,gamm:shortint):boolean;
begin
  if (alph or bet or gamm)=90 then
	 right_angle:=true;
end;

function equilateral_triangle(a,b,c:shortint):boolean;
begin
  if (a=b) and (b=c) and (a=c) then
	equilateral_triangle:=true
  else
    equilateral_triangle:=false;		
end;

function square_equal(a,b,c,a2,b2,c2:shortint):boolean;
var
  S1,S2,p1,p2:real;
begin
  p1:=(a+b+c)/2;
  p2:=(a2+b2+c2)/2;
  S1:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
  S2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2));
  if (S1=S2) then
	square_equal:=true
  else
    square_equal:=false;		
end;
	 
begin
{1}
writeln('/-----------------ЗАДАЧА №1----------------------/');
writeln('Введите значения углов треугольника:');
write('угол_1 = ');
readln(angle_1);
write('угол_1 = ');
readln(angle_2);
write('угол_1 = ');
readln(angle_3);
if IsTriangle(angle_1,angle_2,angle_3) then
begin
	writeln('Треугольник с заданными углами существует');
	if right_angle(angle_1,angle_2,angle_3) then 
		writeln('Он прямоугольный')
	else
	    writeln('Он НЕ прямоугольный');		
end	
else
    writeln('Треугольник с заданными углами НЕ существует');
{2}
writeln(#13#10+'/-----------------ЗАДАЧА №2----------------------/');
writeln(#13#10+'Введите значения длин сторон треугольника'); 
write('сторона a = ');
readln(a);
write('сторона b = ');
readln(b);
write('сторона c = ');
readln(c); 
if equilateral_triangle(a,b,c) then 
		writeln('Треугольник с такими сторонами - равносторонний')
	else
	    writeln('Треугольник с такими сторонами - НЕ равносторонний'); 

{3}
writeln(#13#10+'/-----------------ЗАДАЧА №3----------------------/');
writeln(#13#10+'Введите значения длин сторон первого треугольника'); 
write('сторона a1 = ');
readln(a);
write('сторона b1 = ');
readln(b);
write('сторона c1 = ');
readln(c); 
writeln(#13#10+'Введите значения длин сторон второго треугольника'); 
write('сторона a2 = ');
readln(a2);
write('сторона b2 = ');
readln(b2);
write('сторона c2 = ');
readln(c2); 
if square_equal(a,b,c,a2,b2,c2) then 
		writeln('Треугольники равновеликие')
	else
	    writeln('Треугольники имеют разную площадь');	     	
end.