Проверить является ли число двузначным

Да

Объяснение:

Число меньше ста т.к. (x div 100 = 0)  и больше 10 так как (x div 10<>0) т.е. там есть хоть как один десяток

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.