var a,b:integer; {a-число, b-количество знаков числа}
begin
readln(a);
while a<>0 do
begin
b:=b+1;
a:=a div 10;
end;
writeln(b);
end.
F=A+¬B*¬(A+B)
A B ¬B ¬(A+B) ¬B*¬(A+B) F
0 0 1 1 1 1
0 1 0 0 0 0
1 0 1 0 0 1
1 1 0 0 0 1
Var a, b, c:real;
begin
writeln('Delimoe');
readln(a);
writeln('Delitel');
readln(b);
if b=0 then writeln('Delitel ne 0') else
begin
c:=a/b;
writeln(c);
end;
end.