Result должен быть с новой строки, т.к. это тоже запрос
Это_____справка____________)
. ............................
Program aaa;
uses crt;
var a,b,c:integer;
x, y: real;
begin
writeln(' Vvedite a ');
readln(a);
writeln(' vvedite b ');
readln (b);
wriateln(' Vvedite c' );
readln (c);
x:=((2*a^2-b)/(3*c));
y:=(sqrt(x+c^2)+4*a*b);
writeln( 'x=', x, 'y=', y);
<span>end.
Вот программа, к сожалению, паскаля на компе у меня нет, поэтому, думаю, ты сам справишься с подготовкой программы к запуску и тестированию
</span>
Управляющий объект- Полиционер
Объект управления- машины
Цель управления- Не должна произойти авария
Управляющее воздействие- графическое сообщение