Составить алгоритм и определить его сложность для следующей : определите произведение трех переменных.

А) var  a, y: real; begin  writeln('введите число: ');   readln(a);       if (a > = -2) and (a < 2) then  begin        y : = a*a;         writeln('f(', a, ')=', y);   end    else  begin        y : = 4;         writeln('f(', a, ')=', y);   end; end.б) var a,y: real; beginwriteln('введите число'); readln(a); if a< =2 thenbegin    y: =a*a+4*a+5;     writeln(' f(',a,')=', y); endelsebegin  y: =(1/(a*a)) + 4*a +5;   writeln('f(',a,')=',y); end; end.***если что-то непонятно, , задавай вопросы. 

Program asd; var a1,a2,a3: integer;   sr: real; begin write('введите а1: ');   readln(a1);   write('введите a2: '); readln(a2); write('введите а3: '); readln(a3); if (a1> =5) and (a1< =10) then writeln('есть.  ',a1)    else    if (a2> =5) and (a2< =10) then writeln('есть.  ',a2)    else    if (a3> =5) and (a3< =10) then writeln('есть.  ',a3)  else      writeln('нету.') end.