Напишите программу для вычисления Значения функции y=1/х-1это первый номер И второй если можно

№1

var  

 x :integer;

begin

 readln(x);

 writeln('y =',(1)/(x-1));

end.

№2

var  

 a,b :integer;

begin

 readln(a,b);

 writeln('',a*a-b*b);

end.

Объяснение:

Как автор просил.