вычислите сумму ряда 10, 100, 1000 ...т на языке паскаль, пожалуйста

какие?

T должно быть >=0 . Уже написал в решении.

а программа будет работать так как надо?

Нет, я сжёг свой стационарный ЭВМ, пытаясь это скомпилировать.

не понял

var i,k,T,m:integer;begin;k:=0;m:=1;readln(T);if T<0 then exit;for i:=1 to T dobegin;m:=m*10;k:=k+m;end;writeln(k);end.