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

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

пщояк 17 27 16 33 17

нщёп 15 27 7 17

 

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.