Question

Составить программу, вычисляющую значение выражения по формуле х+1/х-1+18ху

Answer 1

Var a,b:integer;
Begin
Readln(a,b);
Write(a+1/a-1+18*a*y);
End.