program raf105;
var a,b,x,y:real;
begin
write('Введите x и y: ');
readln(a,b);
x:= (6.7*a-3.4*(b**2))/3;
y:= 4.7*a-1.5*b;
writeln('x = ',x);
writeln('y = ',y);
end.
Язык PascalABC
program raf105;
var a,b,x,y:real;
begin
write('Введите x и y: ');
readln(a,b);
x:= (6.7*a-3.4*(b**2))/3;
y:= 4.7*a-1.5*b;
writeln('x = ',x);
writeln('y = ',y);
end.
Язык PascalABC