uses crt; var a:string; begin clrscr; write('bir kelime giriniz:');readln(a); write('girdiğiniz metin ',length(a),' karekterlidir...'); readln; end.