160.392.54 đồng

program st;

ues crt;

var s:string;i:longint;

begin

 clrscr;

   write('nhap do dai cua xau');readln(s);

    if (s>=25)then

         begin 

             write('nhap lai s nho hon 25');readln(s);

          end;

   for i:=1 to length(s) do writeln(s[i]);

readln;

end. 

kết quả là :150