Помогите составить программы к задачам 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.