Program Program1;varx,y:real;beginwrite('Введите x: ');readln(x);y:=7*SQR(x)-3*x+6;writeln('y=',y);end.
Program Program2;varx,a:real;beginwrite('Введите a: ');readln(a);x:=12*sqr(a)+7*a-16;writeln('x=',x);end.
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.