Паскаль

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

выражение:

1 - y = (a+b) ^2

2 - y = a^2-b^2

3 - y = 1 / (a+b)

Var i, y, a, b: single;

begin

writeln ('Выберите действие: 1) y = (a+b) ^2; 2) y=a^2-b^2; 3) y=1 / (a+b) ') ;

read (i) ;

if i=1 then begin

writeln ('Введите a и b') ;

read (a, b) ;

write ('y=', (a+b) * (a+b)) ;

end

else begin

if i=2 then begin

writeln ('Введите a и b') ;

read (a, b) ;

write ('y=', (a*a) - (b*b)) ;

end

else begin

if i=3 then begin

writeln ('Введите a и b') ;

read (a, b) ;

write ('y=',1 / (a+b)) ;

end;

end;

end;

end.