Дано число a и целое число n номер функции. Исходя из

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.