Дано число a и целое число n номер функции. Исходя из номера функции найди ее значение 1) z=5a+7 2) z=a2-3 3) z=(20-3a)/2

var

   n : integer;

   a : real;

begin

   write('число a=');

   readln(a);

   write('номер функции n=');

   readln(n);

   case n of

       1 : write('z=', a*5+7);

       2 : write('z=', a*2-3);

       3 : write('z=', (20-a*3)/2);

       else write('номер функции за гранью разумного');

   end;

end.