Вычислить значение выражения и составить блок-схему

Uses
 Crt;
var
 i,n:integer;
 x:real;
 
function f(Var n:integer;x:real):real;
Var
 i:integer;
 s:real;
begin
s:=0;
for i:=1 to n do
 s:=s+(exp(x/i));
f:=s;
end;
 
begin
ClrScr;
readln(n,x);
write(f(n,x));
readkey
end.

uses crt;
var
 i, n: integer;
 x, sum: real;
begin
 clrscr;
 writeln('ВВЕДИТЕ КОЛИЧЕСТВО ЭЛЕМЕНТОВ n');
 readln(n);
 writeln('ВВЕДИТЕ x');
 readln(x);
 sum := 0;
 for i := 1 to n do
  sum := sum + exp(x/i);
 writeln('СУММА ', n,' ЕЛЕМЕНТОВ  F(x,i) = e^(x/i) СОСТАВЛЯЕТ ', sum:10:4);
 writeln('НАЖМИТЕ ВВОД ДЛЯ ВЫХОДА ИЗ ПРОГРАММЫ');
 readln;
end.
 
uses crt;
var
 i, n: integer;
 x, sum: real;
begin
 clrscr;
 writeln('BBEDUTE KOJIU4ECTBO EJIEMENTOB n');
 readln(n);
 writeln('BBEDUTE x');
 readln(x);
 sum := 0;
 for i := 1 to n do
  sum := sum + exp(x/i);
 writeln('CYMMA ', n,' EJIEMEHTOB F(x,i) = e^(x/i) COCTABJIAET ', sum:10:4);
 writeln('HA)|(MUTE BBOD DJIia BbIXODA U3 PROGRAMbI');
 readln;
end.