uses crt;
var tmpblbost:byte;
    txt:string;

function testblbosti:Boolean;
         begin
         testblbosti:=true;
         tmpblbost:=0;
         repeat
           tmpblbost:=tmpblbost + 1;
           if (ord(txt[tmpblbost]) < 32) or (ord(txt[tmpblbost]) > 172) then
              begin
              testblbosti:=false;
              break;
              end;
         until tmpblbost = (length(txt))
         end;

begin
   writeln;
   write('Vloz co chces: ');readln(txt);
   Writeln ('Ma expanzni znaky: ', testblbosti);
   delay(2000);
end.