uses crt; var m:string; x,ı:byte; begin writeln('mesajı gir lütfen');readln(m); x=length; for ı:=1 do x(m) to writeln( ' , karekterlidir..:) readln; end.