№1
var
	n, cnt : Integer;

begin
	ReadLn(n);

	cnt := 0;
	while n > 0 do begin
		n := n div 10;
		Inc(cnt)
	end;

	if cnt = 3 then
		WriteLn('Верно')
	else
		WriteLn('Неверно');
end.

№2
var
	n, cnt : Integer;

begin
	ReadLn(n);

	cnt := 0;
	while n > 0 do begin
		n := n div 10;
		Inc(cnt)
	end;

	if cnt = 4 then
		WriteLn('Верно')
	else
		WriteLn('Неверно');
end.

№3
var
	a, b, d1, d2 : Integer;

begin
	Read(a, b);

	d1 := 0;
	d2 := 0;

	while a > 0 do begin
		d1 := a mod 10;
		a := a div 10;
	end;

	while b > 0 do begin
		d2 := b mod 10;
		b := b div 10;
	end;

	if d1 > d2 then
		WriteLn('Первая цифра первого числа больше')
	else if d1 < d2
		WriteLn('Первая цифра второго числа больше')
	else
		WriteLn('Первые цифры чисел равны');
end.

№4
var
	n, cnt : Integer;

begin
	ReadLn(n);

	cnt := 0;
	while n > 0 do begin
		if n mod 10 = 6 then
			Inc (cnt);

		n := n div 10;
	end;

	WriteLn(cnt);
end.