procedure Nacti; var f: text; procedure OtevriSoubor; begin assign( f, 'p181029.pas' ); reset( f ) end; function JePismeno( znak: char ): boolean; begin JePismeno := ((znak>='a') and (znak<='z')) or ((znak>='A') and (znak<='Z')) end; function NactiSlovo: string; var slovo: string; znak: char; begin read( f, znak ); while (not eof(f)) and (not JePismeno( znak )) do read( f, znak ); slovo := ''; while (not eof(f)) and (JePismeno( znak )) do begin slovo := slovo + znak; read( f, znak ) end; if JePismeno(znak) then slovo := slovo + znak; NactiSlovo := slovo end; const MAX = 100; var slova: array[1..MAX] of string; pocty: array[1..MAX] of integer; N: integer; procedure PridejDoSeznamu( slovo: string ); var i: integer; begin slova[ N+1 ] := slovo; pocty[ N+1 ] := 1; for i:=1 to N do if slova[i] = slovo then begin pocty[ i ] := pocty[ i ] +1; exit; end; N := N+1 end; var slovo: string; begin N := 0; OtevriSoubor; slovo := NactiSlovo; while slovo<>'' do begin { ... } { writeln( '>',slovo,'<' ); } PridejDoSeznamu( slovo ); slovo := NactiSlovo end; end; begin Nacti; {Vytiskni} readln end. var A: array[1..1000] of integer; var B: array[1..1000] of integer; type POLE = array[1..1000] of integer; var X: POLE; Y: POLE; var M: array[1..10] of array [1..20] of boolean; begin X := Y; M[1] := M[7]; end. function Minimum( X: POLE ): integer; begin Minimum := 5 end; begin writeln( Minimum( Y ) ) end. function Sedm( a: integer ): integer; begin end; function Osm : integer; var k: integer; begin Osm := k end; begin writeln( Osm ); writeln( Sedm(1) ) end. program Project1; procedure VytiskniRadkuX; begin { writeln( i ); } writeln( 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ) end; procedure VytiskniNadpis; var i: integer; begin write( 'X X' ); for i:=1 to 10 do write( i:4 ); writeln( ' X' ) end; var i: integer; procedure VytiskniNasobkyCisla( ceho: integer ); var i: integer; begin write( 'X ',ceho:2,' X' ); for i:=1 to 10 do write( i*ceho:4 ); writeln( ' X' ) end; begin VytiskniRadkuX(); VytiskniNadpis(); VytiskniRadkuX(); for i:=1 to 20 do VytiskniNasobkyCisla( i ); VytiskniRadkuX() ; readln() end.