посчитайте составить программы к Заданием 8 , 10 надо)))

8.
Program zadanie_8;
Var a,b,c:real;
Begin
 Writeln(\'Введите значения A,B,C\');
 Readln(a,b,c);
 If (a<b) and (b<c) Then a:=a+b+c Else a:=a*b*c;
 Writeln(a);
End.
10.
Program zadanie_10;
Var x:real;
Begin
 Writeln(\'Введите значение x;);
 Readln(x);
 x:=(4*sqr(x)+7)/3*x-6;
 Writeln(\'=\',x);
End.