В нэте есть я это тоже позавчера делал)
вроде-бы это векторная графика;
различия
на распечатанном рисунке не отоброзился зеленый треугольник, но появились какие-то линия которых не было
Program uravnenie;
Var a,b,x: real;
BeginWriteln (' введите a');
Readln (a);Writeln (' введите b');
Readln(b);
x:=(0-b)/a;
Writeln(' x равно=',x);
Readln (x);
<span>End.
___________________________________
</span>
Петрова - 1место
Белова-2 место
Комарова-3
Митина-4
Громова-последнее
Не войдут в финал : Комарова, Митина, Громова