Задача на pascal с пост условием.

[StudentSAFU]

1+1/2+1/3+...+1/n+...

c точностью до E(эпсилон). Составить блок схему. Решить с пост условием и пред. условием.

[Mad_Cat]

var i:integer;s,e:real;
begin
write('e=');readln(e);
s:=0;
i:=1;{пред}
writeln('WHILE:');
while 1/i >e do
begin
s:=s+1/i;
i:=i+1;
end;
writeln(s);
writeln('REPEAT...UNTIL:');
i:=1;s:=0;{пост}
repeat
s:=s+1/i;
inc(i);
until 1/i<e;
writeln(s);
end.