задачи в паскале

[samara639]

1. Составьте программу, определяющую, какое из двух чисел a и b, введенных с клавиатуры, больше.
2. Составьте программу, определяющую попадает ли точка с координатами (x,y) в круг с центром в начале координат и радиусом R.
3. Составьте программу, определяющую, какой из векторов , заданных своими координатами, имеет большую длину.
4. Даны стороны треугольника a, b, c. Определить вид треугольника: прямоугольный, остроугольный, тупоугольный. Справедливы соотношения: c2=a2+b2 – для прямоугольного, c2>a2+b2 – для тупоугольного, c2<a2+b2 – для остроугольного.
5. Составить программу для нахождения квадратного уравнения ax2+bx+c=0.

[ZX Spectrum-128]

4.

if sqr(c)=sqr(a)+sqr(b) then 
  writeln('Прямоугольный');
if sqr(c)>sqr(a)+sqr(b) then 
  writeln('Тупоугольный');
if sqr(c)<sqr(a)+sqr(b) then 
  writeln('Остроугольный');