Соберите блок-схему нахождения суммы целых чисел, которые принадлежат отрезку [m;n], где m меньше либо равно n. Перенесите записи в рамки, соответствующие нужным блокам блок-схемы

по-моему правильно сделала если правильно то сделай этот ответ лучшим

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.