дано одно число. определить, двузначное ли оно
Входные данные: во входном потоке в первой строке задано целое число А(0

program pask;vara, count: integer;begincount:=0;read(a);while a>0 dobegincount:=count+1;a:= a div 10;end;if count = 2 then write('Это двузначное число')else write('Это не двузначное число');end.

program pask;vara, count: integer;begincount:=0;read(a);while a>0 dobegincount:=count+1;a:= a div 10;end;if count = 2 then write('Это двузначное число')else write('Это не двузначное число');end.