Составить программу, которая выводит меню и при нажатии вводе цифры вычисляет соответствующее

выражение:

1) y = (a+b) 2

2) y = a^2-b^2

3) y = 1 / (a+b)

Pascal

var

m : integer;

a, b, y : real;

begin

writeln ('menu:') ;

writeln ('1) y = (a+b) 2') ;

writeln ('2) y = a^2-b^2') ;

writeln ('3) y = 1 / (a+b) ')

writeln ('a=') ;

readln (a) ;

writeln ('b=') ;

readln (b) ;

readln (m) ;

case m of

1: y : = (a+b) * 2;

2: y : = sqr (a) - sqr (b) ;

3: y : = 1 / (a+b) ;

end;

writeln ('y=', y:3:2) ;

end.