Если вы проходите логику, то он означает дизъюнкцию (логическое сложение), или
Var s:string; k,i: integer;
begin
writeln('Введите строку ');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='.' then k:=k+1;
writeln('Количество точек в строке = ',k);
<span>end.</span>
<span>a = int(input())
Max = a
n = <span>0
</span>while a != 0:
if a > Max:
Max = a
n = <span>1
</span> elif a == Max:
n += <span>1
</span> a = int(input())
print(n, ' - ', Max)</span>