#include<bits/stdc++.h>
using namespace std;
float n;
main(){
      ios_base::sync_with_stdio(0);cin.tie(0);cout.tie(0);
      cin>>n;
// 1/(n.(n+1)) = 1/n - 1/(n+1)
      cout<<1-(1/(n+1));
      return 0;
//Thanhkhangdzn01
}

Để đọc file trong pascal ta làm như sau:
b1: khai báo biến tập tin

   `+` cú pháp: var <biến>: text;

b2: mở biến tập tin

   `+` cú pháp: assign(<biến>, 'tên tập tin');

b3: đặt định dạng cho file (đọc/ghi file)

   `+` đọc: reset(biến);

   `+` ghi: rewrite(biến);

uses crt;
var f: text;
    i,n: integer;
    s: real;
begin
clrscr;
    assign(f,'file.inp'); reset(f);
    readln(f,n);
    close(f);
    assign(f,'file.out'); rewrite(f);
    s:=0;
    for i:=1 to n do s:=1/(i*(i+1));
    write(f,s:0:2);
    close(f);
end.