program povtor;
var st: string;
      sum, i: integer;
begin
readln(st);
sum:=0;
for i:=1 to length(st) do
if copy(st,i,1)='?' then sum:=sum+1;
writeln('Символ ? в тексте встречается ',sum,' раз.');
end.

program analiz;
var a,b: real;
begin
readln(a,b);
if (a>20) and (b>20) then writeln('Оба числа больше 20') else writeln('По крайней мере одно число не больше 20');
end.

program search;
var i, d, e, s: integer;
begin
for i:=10 to 99 do begin
d:=trunc(i/10);
e:=i-d*10;
s:=d+e;
if s+sqr(s)=i then writeln(i); end;
end.

program calc;
var k, d, c: integer;
      s: real;
begin
readln(k,d);
c:=trunc(k/d);
s:=k/d-c;
writeln('Целая часть от деления =',c,'; дробная часть от деления =',s);
end.