1Bind on Accout( по моему так расшифровывается)-вещь привязанная к учётной записи.2 Ещё есть такая тропическая змея и 3 это ещё длинный узкий женский шарф.Но тебе же нужно к уроку информатики тогда это 1 вариант.
Uses crt;
const n=10;
var a:array[1..n] of integer;
s,i,min,k:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<min then begin min:=a[i]; k:=i; end;
end;
s:=0;
for i:=k+1 to n do
s:=s+a[i];
writeln(s);
end.
Var
str:string;
count,i:integer;
begin
count:=0;
readln(str);
for i:=1 to Length(str) do
if (str[i]>'0') AND (str[i]<'9') then
count:=count+1;
writeln(count);
end.
все просто написана программа верно,но для того чтобы она заработала нужно символы расставить а именно( ; )где ?? после writeln и readln