Question

Помогите. Даю 15 баллов

Answer 1

Объяснение:

Program Program1;

var

x,y:real;

begin

write('Введите x: ');

readln(x);

y:=7*SQR(x)-3*x+6;

writeln('y=',y);

end.

Program Program2;

var

x,a:real;

begin

write('Введите a: ');

readln(a);

x:=12*sqr(a)+7*a-16;

writeln('x=',x);

end.