Прием (ввод) информации у компьютера

Клавиатура? дополните вопрос - не понятный.

Var       y, x: real; begin       read(x);       if (x > -20) and (x < -10) then               y : = x * x * x * x       else if (x > -10) and (x < -20)  then               y : = abs(x)       else if ((x > 0) and (x < 20)) or ((x > 30) and (x < 70))  then               y : = 45       else if ((x > 80) and (x < 100)) or ((x > 110) and (x < 140)) or (x > 180)  then               y : = abs(x - 4)       else               y : = abs(x + 2);             writeln(x, ' ', y); end.

Var x1, y1, x2, y2, x3, y3, a, b, c, p, s: real; begin readln(x1, y1, x2, y2, x3, y3); a: =sqrt(sqr(abs(x1-x2))+sqr(abs(y1-; b: =sqrt(sqr(abs(x2-x3))+sqr(abs(y2-; c: =sqrt(sqr(abs(x1-x3))+sqr(abs(y1-; p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); if s=0 then write('лежат на одной прямой') else write('не лежат на одной прямой'); end.объясняю. образуем из этих трёх точек треугольник.  a, b, c - стороны треугольника. p - полу-периметр треугольника. s - площадь треугольника. площадь вычисляется по формуле герона. если площадь равна нуля, значит точки лежат на одной прямой. если нет - не лежат.