String pascal

String pascal uses crt; var         a:string;         b,c,d:integer;   begin         clrscr;         write('tulis kata=');readln(a)...