Написать программу решения линейного уравнения с произвольными параметрами: a*x+b=0.

Var  a,b,x: real; begin write('введите коэффициенты а и b: '); readln(a,b); x: =-b/a; writeln('ответ: x=',x); end.  

Program n1; var kord: array[1..6] of real; st: array [1..3] of real; i: integer; begin i: =1; while i< =6 do begin write('введите координаты точки через пробел: '); readln(kord[i],kord[i+1]); i: =i+2; end; st[1]: =sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2])); st[2]: =sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2])); st[3]: =sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4])); if (st[1]< (st[2]+st[3])) and (st[2]< (st[1]+st[3])) and (st[3]< (st[1]+st[2]))  then write('p=',st[1]+st[2]+st[3]) else write('треугольник не существует'); end.

Что тут расшифровывать то?   1)процессор intel pentium с тактовой частотой 3.4ghz, объем оперативной памяти 2гб, внешний накопитель на 300гб, видеокарта  geforce 7600gs с видеопамятью 256 мб, есть слот для дисков  dvd±rw, наличие звуковой карты, наличие порта для интернета, блок питания на 430в.2)процессор  intel celeron с тактовой частотой 3.1ghz, 512мб оперативной памяти, 200гб внешнего накопителя, видеокарта  geforce 7300le, fdd вероятнее всего hdd(устройство внешней памяти), наличие инструмента для чтения дисков dvd, наличие звуковой карты, возможность подключение к интернету по проводу, блок питания на 350в