Блез Паскаль прожил всего 39 лет (1623—1662), но навсегда остался в памяти человечества как интереснейший мыслитель, математик, ученый и изобретатель второй в мире работающей счетной машины (первой были считающие часы Вильгельма Шиккарда). Удивительно, но свою машину Блез сконструировал, когда ему было всего 19 лет. Изобретенный им механизм получил имя "Паскалина". Все началось в того, что Блез Паскаль любил и уважал своего отца. Тот был сборщиком налогов и много времени проводил за утомительными расчетами...

program draw_line; uses Crt, Math, Graph; var graphicsDriver, graphicsMode: Integer; x1, y1, x2, y2, dx, dy: real; u1, v1, u2, v2: real; p, q, a: real; b, d, c: real; f, k, w, z, h, e: Real; begin while (1 = 1) do begin k := 6.2831; clearDevice(); graphicsDriver := Detect; InitGraph(graphicsDriver, graphicsMode, ''); x1 := getMaxX div 2; y1 := getMaxY div 2; u1 := x1; v1 := y1; a := 0.5; c := 0; setColor(Yellow); p := 0.0001 * trunc(10000 * Random()); q := 0.0001 * trunc(10000 * Random()); b := 0...