выдаёт ошибку incompatible types: got "Double" expected "Lounglnt"
var i,n,s: integer;
begin
n:=100;
s:=0;
for i:= 1 to 6 do
begin
s:=s+n;
n:=n/5;
end;
labels.caption:=inttostr(s);
end;
end.​

Uses SysUtils;

var i: integer; n, s: real; caption: string;

begin

n:=100;

s:=0;

for i:= 1 to 6 do

begin

s:=s+n;

n:=n/5;

end;

caption:=FloatToStr(s);

end.

Объяснение:

"Uses SysUtils;" для "FloatToStr", в паскале нельзя называть переменные в формате "labels.caption", лишнее "end;", переменные не в том типе данных.