Дано действительное число а.вычислите f(a), если а) f(х)= х2 при -2≤х< 2, 4 в противном случае; б) f(x)= x2+4x+5 при х≤2, 1/х2+4х+5 в противном случае; ..

А) 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.***если что-то непонятно, , задавай вопросы. 

Var   a,b,c: real;   f: byte; begin   write('введите длины сторон треугольника: '); readln(a,b,c);   if (a< b+c) and (b< a+c) and (c< a+b) and       (a> 0) and (b> 0) and (c> 0) then f: =1 else f: =0;   if f=1 then writeln('треугольник можно построить')   else writeln('треугольник построить нельзя') end. тестовые решения: введите длины сторон треугольника: 3 4 5 треугольник можно построить введите длины сторон треугольника: 1 1 1 треугольник можно построить введите длины сторон треугольника: 0 4 5 треугольник построить нельзя введите длины сторон треугольника: -3 6 5 треугольник построить нельзя введите длины сторон треугольника: 2 1 8 треугольник построить нельзя

Заметил язык после написания программы, извиняюсь может пригодится : )  если можно построить - "yep",  иначе   - "no" #include < iostream> #include < conio.h> using namespace std; void triangleoptimal(int m, int n, int k)  {     if(k< 0 || m< 0 || n< 0)      {         cout < < "no";     }      else      {         if(k*k == m*m + n*n)          {           cout < < "yep";       }          else         {           cout < < "no";       }     } }int main() {    int a,b,c;     cin > > a;     cin > > b;     cin > > c;     triangleoptimal(a,b,c);     _getch();         return 0; }