Program n1;
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.
В конце программы пропущен end;
И еще не описан массив Dt
var
i,a,b: integer;
begin
writeln('Введите границы интервала: ');
readln(a,b);
for i:=a to b do
writeln(i,' ',sqr(i),' ',sqr(i)*i);
end.