program szovegek;
var kod, c1, kod2, ch: char ;
cim: string ;
nev: string [ 25 ] ;
lakcim : string [ 40 ] ;
s1, s2, szoveg: string ;
x, i: integer ;
begin
{karakterek deklarációja}
kod: = 'A' ; {értékadás char típusnál}
c1: = '+' ;
{szöveges (karakterlánc) adattípus deklarálása}
nev: = 'Aranyos Imre' ; {értékadás string típusnál}
lakcim: = 'Dunaújváros' ;
kod2: = lakcim[ 1 ] ; {hivatkozás string elemére, a kod2 értéke
a 'D' betű lesz}
writeln ( 'kod=' , kod, ' c1=' , c1, ' nev=' , nev, ' lakcim=' , lakcim, ' kod2=' , kod2) ;
{szövegegyesítés}
s1: = 'Repul' ;
s2: = ' a nehez ko...' ;
szoveg: = s1+ s2+ ' (Arany Janos)' ;
writeln ( 's1=' , s1, ' s2=' , s2, ' szoveg=' , szoveg) ;
{szövegegyesítés}
szoveg: = concat( s1, s2) ;
writeln ( 'szoveg=' , szoveg) ;
{szövegrész kimásolása}
szoveg: = copy( s2, 4 , 5 ) ;
writeln ( 'szoveg=' , szoveg) ;
{szövegrész törlése}
delete( szoveg, 1 , 3 ) ;
writeln ( 'szoveg=' , szoveg) ;
{szöveg beillesztése}
insert( 'res' , szoveg, 2 ) ;
writeln ( 'szoveg=' , szoveg) ;
{a szöveg hossza}
x: = length( szoveg) ;
writeln ( 'szoveg hossza, x=' , x) ;
{szövegrészlet pozíciójának megállapítása}
x: = pos( 'nehez' , s2) ;
writeln ( 'a nehez pozicioja az s2-ben, x=' , x) ;
{szám átalakítása szöveggé}
x: = 25 ;
str( x, s1) ;
writeln ( 'az s1, mint szoveg az = ' , s1, ', s1+' '2' ' = ' , s1+ '2' ) ;
{szöveg átalakítása számmá}
s1: = '25' ;
val( s1, x, i) ;
writeln ( 'az x, mint szam az = ' , x, ', x+2 = ' , x+ 2 ) ;
{egy karakter átalakítása nagybetűssé}
ch: = 'd' ;
writeln ( 'kezdetben a ch = ' , ch) ;
ch: = upcase( ch) ;
writeln ( 'atalakitva nagybetusse a ch = ' , ch) ;
{a következő karakter}
ch: = 'd' ;
writeln ( 'kezdetben a ch = ' , ch) ;
ch: = succ ( ch) ;
writeln ( 'a ch-t koveto karakter az = ' , ch) ;
{az előző karakter}
ch: = 'd' ;
writeln ( 'kezdetben a ch = ' , ch) ;
ch: = pred ( ch) ;
writeln ( 'a ch-t megelozo karakter az = ' , ch) ;
{a karakter kódja}
x: = ord ( ch) ;
writeln ( 'a ' , ch, ' kodja az x=' , x) ;
{a megadott kódú karakter meghatározása}
x: = 97 ;
ch: = chr ( x) ;
writeln ( 'a ' , x, ' kodu karakter az ch=' , ch) ;
writeln ( '<tab>' , #9 , '<tab>' , #10 , #13 , '<enter>' ) ;
writeln ( 'a hexadecimalis 45 tizesben sz ' , $45 ,
' a hexa 45 kodu karakter az ' , #$45 ) ;
readln ;
end .
cHJvZ3JhbSBzem92ZWdlazsKdmFyIGtvZCxjMSxrb2QyLGNoOiBjaGFyOwogICAgY2ltOiBzdHJpbmc7CiAgICBuZXY6IHN0cmluZ1syNV07CiAgICBsYWtjaW0gOiBzdHJpbmdbNDBdOwogICAgczEsczIsc3pvdmVnOiBzdHJpbmc7CiAgICB4LGk6aW50ZWdlcjsKYmVnaW4KICAgIHtrYXJha3RlcmVrIGRla2xhcsOhY2nDs2phfQogICAga29kOj0nQSc7ICAgICAgICAgICAgICAgIHvDqXJ0w6lrYWTDoXMgY2hhciB0w61wdXNuw6FsfQogICAgYzE6PScrJzsKICAgIHtzesO2dmVnZXMgKGthcmFrdGVybMOhbmMpIGFkYXR0w61wdXMgZGVrbGFyw6Fsw6FzYX0KICAgIG5ldjo9J0FyYW55b3MgSW1yZSc7ICAgICB7w6lydMOpa2Fkw6FzIHN0cmluZyB0w61wdXNuw6FsfQogICAgbGFrY2ltOj0nRHVuYcO6anbDoXJvcyc7CiAgICBrb2QyOj1sYWtjaW1bMV07ICAgICAgICAge2hpdmF0a296w6FzIHN0cmluZyBlbGVtw6lyZSwgYSBrb2QyIMOpcnTDqWtlCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGEgJ0QnIGJldMWxIGxlc3p9IAogICAgd3JpdGVsbigna29kPScsa29kLCcgYzE9JyxjMSwnIG5ldj0nLG5ldiwnIGxha2NpbT0nLGxha2NpbSwnIGtvZDI9Jyxrb2QyKTsKICAgIHtzesO2dmVnZWd5ZXPDrXTDqXN9CiAgICBzMTo9J1JlcHVsJzsKICAgIHMyOj0nIGEgbmVoZXoga28uLi4nOwogICAgc3pvdmVnOj1zMStzMisnIChBcmFueSBKYW5vcyknOwogICAgd3JpdGVsbignczE9JyxzMSwnIHMyPScsczIsJyBzem92ZWc9Jyxzem92ZWcpOwogICAge3N6w7Z2ZWdlZ3llc8OtdMOpc30KICAgIHN6b3ZlZzo9Y29uY2F0KHMxLHMyKTsKICAgIHdyaXRlbG4oJ3N6b3ZlZz0nLHN6b3ZlZyk7CiAgICB7c3rDtnZlZ3LDqXN6IGtpbcOhc29sw6FzYX0KICAgIHN6b3ZlZzo9Y29weShzMiw0LDUpOwogICAgd3JpdGVsbignc3pvdmVnPScsc3pvdmVnKTsKICAgIHtzesO2dmVncsOpc3ogdMO2cmzDqXNlfQogICAgZGVsZXRlKHN6b3ZlZywxLDMpOwogICAgd3JpdGVsbignc3pvdmVnPScsc3pvdmVnKTsKICAgIHtzesO2dmVnIGJlaWxsZXN6dMOpc2V9CiAgICBpbnNlcnQoJ3Jlcycsc3pvdmVnLDIpOwogICAgd3JpdGVsbignc3pvdmVnPScsc3pvdmVnKTsKICAgIHthIHN6w7Z2ZWcgaG9zc3phfQogICAgeDo9bGVuZ3RoKHN6b3ZlZyk7CiAgICB3cml0ZWxuKCdzem92ZWcgaG9zc3phLCB4PScseCk7CiAgICB7c3rDtnZlZ3LDqXN6bGV0IHBvesOtY2nDs2rDoW5hayBtZWfDoWxsYXDDrXTDoXNhfQogICAgeDo9cG9zKCduZWhleicsczIpOwogICAgd3JpdGVsbignYSBuZWhleiBwb3ppY2lvamEgYXogczItYmVuLCB4PScseCk7CiAgICB7c3rDoW0gw6F0YWxha8OtdMOhc2Egc3rDtnZlZ2fDqX0KICAgIHg6PTI1OwogICAgc3RyKHgsczEpOwogICAgd3JpdGVsbignYXogczEsIG1pbnQgc3pvdmVnIGF6ID0gJyxzMSwnLCBzMSsnJzInJyA9ICcsczErJzInKTsKICAgIHtzesO2dmVnIMOhdGFsYWvDrXTDoXNhIHN6w6FtbcOhfQogICAgczE6PScyNSc7CiAgICB2YWwoczEseCxpKTsKICAgIHdyaXRlbG4oJ2F6IHgsIG1pbnQgc3phbSBheiA9ICcseCwnLCB4KzIgPSAnLHgrMik7CiAgICB7ZWd5IGthcmFrdGVyIMOhdGFsYWvDrXTDoXNhIG5hZ3liZXTFsXNzw6l9CiAgICBjaDo9J2QnOwogICAgd3JpdGVsbigna2V6ZGV0YmVuIGEgY2ggPSAnLGNoKTsKICAgIGNoOj11cGNhc2UoY2gpOwogICAgd3JpdGVsbignYXRhbGFraXR2YSBuYWd5YmV0dXNzZSBhIGNoID0gJyxjaCk7CiAgICB7YSBrw7Z2ZXRrZXrFkSBrYXJha3Rlcn0KICAgIGNoOj0nZCc7CiAgICB3cml0ZWxuKCdrZXpkZXRiZW4gYSBjaCA9ICcsY2gpOwogICAgY2g6PXN1Y2MoY2gpOwogICAgd3JpdGVsbignYSBjaC10IGtvdmV0byBrYXJha3RlciBheiA9ICcsY2gpOwogICAge2F6IGVsxZF6xZEga2FyYWt0ZXJ9CiAgICBjaDo9J2QnOwogICAgd3JpdGVsbigna2V6ZGV0YmVuIGEgY2ggPSAnLGNoKTsKICAgIGNoOj1wcmVkKGNoKTsKICAgIHdyaXRlbG4oJ2EgY2gtdCBtZWdlbG96byBrYXJha3RlciBheiA9ICcsY2gpOwogICAge2Ega2FyYWt0ZXIga8OzZGphfQogICAgeDo9b3JkKGNoKTsKICAgIHdyaXRlbG4oJ2EgJyxjaCwnIGtvZGphIGF6IHg9Jyx4KTsKICAgIHthIG1lZ2Fkb3R0IGvDs2TDuiBrYXJha3RlciBtZWdoYXTDoXJvesOhc2F9CiAgICB4Oj05NzsKICAgIGNoOj1jaHIoeCk7CiAgICB3cml0ZWxuKCdhICcseCwnIGtvZHUga2FyYWt0ZXIgYXogY2g9JyxjaCk7CiAgICB3cml0ZWxuKCc8dGFiPicsIzksJzx0YWI+JywjMTAsIzEzLCc8ZW50ZXI+Jyk7CiAgICB3cml0ZWxuKCdhIGhleGFkZWNpbWFsaXMgNDUgdGl6ZXNiZW4gc3ogJywkNDUsCiAgICAgICAgICAgICcgYSBoZXhhIDQ1IGtvZHUga2FyYWt0ZXIgYXogJywjJDQ1KTsKICAgIHJlYWRsbjsKZW5kLg==