Question

Чуваки , немогу понять вот это
составьте программу вычесления функции y по формуле y=1+1/x+1/x^2 , для которой значение аргумента x введите с клавиатуры. Отладьте программу на следующим примере: x; y; 4; 1,3125.

Answer 1

Program lololo;
var x,y:real;
begin
readln(x);
y := 1+1/x+1/(x*x);
writeln(y);
end. 

Answer 2

Program funkciya;
var x,y:real;
begin 
Readln(x);
 y:=1+1/x+1/(x*x);
 Writeln(y);
end.