Ovo je moje vidjenje tog zadatka ali nesto ne valja:
program blabla;
uses wincrt;
var
a,x:real;
i,s,n:integer;
function izdvajanje(a:real):integer;
var
b:integer;
begin
b:=trunc(a);
end;
begin
i:=0;
writeln('Koliko puta ce mo ucitati realni broj:');
readln(n);
repeat
writeln('Unesi realne brojeve:');
readln(x);
i:=i+1;
until i=n;
s:=0;
repeat
s:=s+izdvajanje(x);
i:=i+1;
until i=n;
writeln('Suma n razlicitih realnih brojeva iznosi: ', s);
end.