uses CRT ;
begin
       clrscr ;
       write('this is a string') ;
end.

uses CRT ;
begin
       clrscr ;
       write('this is a string') ;
       readln ;
end.

begin
       write('this is a string') ;
end.

var
       mystring : string ;

begin
       mystring := 'this is a string' ;
       write( mystring ) ;
end.

var
       mystring : string ;

begin
       mystring := 'this is a string' ;
       write( mystring,' in Pascal program' ) ;
end.

var
       mystring1 : string ;
       mystring2 : string ;

begin
       mystring1 := 'this is a string' ;
       mystring2 := ' in Pascal program' ;

       write( mystring1, mystring2 ) ;
end.

begin
       write('dog':15 ) ;
end.

var
           mystring : string ;
begin
       mystring := 'dog'
       write(mystring:15 ) ;
end.

begin
       write( 'dog':15, 'cat':5 ) ;
end.

begin
       write( '                           dog     cat' ) ;
end.

program   write_string ;
var
        mystring : string ;

begin
        mystring := ' in pascal program' ;
        writeln('this is a string') ;
        write(mystring);
end.