var x, y, a :real;beginwriteln('введите переменные: x, y и a');readln(x, y, a);Y:=38*x+231;M=7*x+6*y+276;N=sqr(4*a)+2*x*a+8*y;writeln(x, y и a соответственно равны: ' x, y, a');end.упс... не заметил, что нужно в 3 разные программы...1)var x, y :real;beginwriteln('введите переменную x');readln(x);Y:=38*x+231;writeln('y равен: ', y);end.2)var x, y, m :real;beginwriteln('введите переменную x и y');readln(x,y);M:=7*x+6*y+276;writeln('m равен: ', m);end.3)var x, y, a, n :real;beginwriteln('введите переменные x, y, a');readln(x, y, a);N=sqr(4*a)+2*x*a+8*y;writeln('N равен: ', n);end.