Решение задач с условным оператором

Повторение.
Какова конструкция условного оператора?
Какие существуют формы условного оператора?
Приведите пример условного оператора.

Решение задач.
Program sum;
Var y, a, х, b: real;
Begin
Readln (x , a, b );
If x>=2 then y: =a*x*x + b else y: =sqrt (x + b);
Writeln (‘y=’, y);
Readln;
End.
А) Вычислить значение: У =

Б) Вычислить
Program sum2;
Var y, a, х, b: real;
Begin
Readln (x , a, b );
If x
Writeln (‘y=’, y);
Readln;
End.
у =

В) Заданы длины сторон треугольника, определить, является ли этот треугольник прямоугольным.
Program sum3;
Var a, b, c: real;
Begin
Readln ( a, b,с );
If a*a + b*b = c*c then writeln (‘треугольник прямоугольный’) else writeln (‘не прямоугольный’);
Readln;
End.

Г) Заданы длины сторон треугольника, определить, является ли данный треугольник равнобедренным.
Program sum4;
Var a, b, c: real;
Begin
Readln ( a, b,с );
If (a = b) OR (a = c) then writeln (‘треугольник равнобедренный) else writeln (‘не равнобедренный’);
Readln;
End.

Д/З
стр.75 – 83 повторить.
Составить программу:
Заданны два числа, найти среди них минимальное число.