var i,y,a,b: single;beginwriteln('Выберите действие: 1)y=(a+b)^2; 2)y=a^2-b^2; 3)y=1/(a+b)');read(i);if i=1 then beginwriteln('Введите a и b');read(a,b);write('y=',(a+b)*(a+b));endelse beginif i=2 then beginwriteln('Введите a и b');read(a,b);write('y=',(a*a)-(b*b));endelse beginif i=3 then beginwriteln('Введите a и b');read(a,b);write('y=',1/(a+b));end;end;end;end.