var
n,x,y,a,b,c,d,e:real;
begin
readln(n);
if (n<>1) and (n<>2) then writeln('Выберите функцию! Введите 1 или 2.');
 if n=1 then
begin
 writeln('Введите значение X');
 readln(x);
 y:=2*x-1/3*x;
 writeln('Y=',y)
end;
if n=2 then
begin
writeln('Введите значения a,b,c и d');
readln(a,b,c,d);
e:=a/b-c/d;
writeln('E=',e);
end;
readln
end.