Pascal Sorusu 3

Arkadaşlar aşağıdaki programı bir de siz çalıştırıp hataların nerelerden kaynaklandığını burada bildirirseniz çok teşekkür ederim

Program HATA3;

VAR
i:integer; X,Y:real;

BEGIN

        x:=0;For i:=1 to 2000 do X:=X+1/i;
        y:=0;For i:=2000 downto 1 do Y:=Y+1/i;

        writeln(X,' === ', Y, ' === ', X-Y);

        readln;
END. {X'mi daha do§ru, Y'mi?}

Normalde x-y sıfır cıkması gerekir ama siz 2000 sayısını kullanınca cıkmamış onu mu soruyorsunuz.. Mesela 2000 yerine 100 falan kullanınca X-Y sıfır cıkıyo.. Aslında ne yapmak istediğinizi ve yapamadığınız şeyi daha ayrıntılı yazarsanız belki daha fazla yardımcı olabiliriz...Açıkcası bu sorunuzda ve diğer sorularınızda pek anlaadım ne yapmak istediğinizi.. Belki bu benim öz salaklığımsan kaynaklanıyodur ama :P