Только что созданный текстовый файл получил расширение txt
Бег<span>-бог-бок-бак-мак-маг-</span>шаг
море-морс-торс-тора-тура-туша-суша
наверное, так
Var
C,C2:char;
i,B:integer;
Begin
B:=1;
Read(C);
C2:=C;
While C <> '.' do
Begin
if C2 > C then B:=0;
C2:=C;
Read(C);
End;
Write(B <> 0)
End.
var
a,s: integer;
<span>begin </span>
a:=10;
while a<=99 <span>do begin </span>
s:=s+a;
a+=1;
end;
writeln(s);
end.