Дан текст, имеющий вид: "d1+d2+…+dn", где dn— цифры (n > 1). вычислить записанную в тексте сумму. matlab

var i,s: integer;

begin

  for i: = 100 to 200 do

      if i mod 17=0 then s: =s+i;

  writeln(s);

end.

почитай тут 

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.