Pitalu

! "# & '( ) ) % * $ %

+ + . +

,

% + % /

+ 1

0 2 *

! " # #$ %

" "

Program MiPrimerPrograma; {cabecera} Uses Crt; {declaraciones} Const iva =0.10; Type cadena=string[35]; meses Var sueldo :real; numero :integer; nombre :cadena; Nmes Begin ClrScr; {Limpia la pantalla} Write ('Escribe tu nombre : '); {Visualiza información en pantalla} ReadLn(nombre); {Leer undato del teclado} WriteLn ('Bienvenido ', nombre); {Visualiza información en pantalla} Readkey; {Espera la pulsación de una tecla} ClrScr end. :meses; =1..12;

" + 3

+ 4 5

,

4

6 7!68/9

6 2 7 46 %4 6

1):17

%

!68/9 ! 7 ;! ,6

<

$ +

% * 2 .

& % ' + % " 3 2 % * % 2 % % -9) 3 3 %

: + ;?< 2

()#*+*,. (/ "0 1 @ 6

" (*2-

/-

A @18 2 & ' 10 " 3" B

A 4

#$ 3

% -

2 + 2 2 ; < +

2 C 3 7 1 ,
... function Suma (a:integer;b:integer):integer; begin Suma := a + b end;

1

2

2 2

>

procedure Escribe(frase:string);begin writeln(frase) end; ...

) 2 E : 2

2 +

7 4

"5 " "

6

) 2

*

2

3

3 + ;H 7 ,F

FG ;H H< G H<

1 + : : @ + L : ! 2 " 37 2 2 5 ,? , 5 5 * ,?I% ,?I I4 ;H+ ,?>. D>4F+ K 4 F+ ,?.J4 ;H+ I4 F+ % H< 8 H<

%

,?

G G G

B "

+

" ;

2 , "4< ; 4

2 2 8&" < @ & ,

7

D

begin i := 0; while i.P'J ' + ! < 6 , . N+O>N ' 6 + ' 7 + + !3 1 " ; <;I< M, + 3 , I7 9 , IL I; I; 2 N ' < < M " P+>J 6 ; 9 < 1):KK * ;I< B " * ; * ' 2 2 >.P'P G ;)% K 7 ' B /2 2 ,

' + ! $ < -

' +

"

5 " ,

F Q17)+ !86+ G 7 + ! /2 / Q17)+ 2 !86+ ; *< % 2 < ;/ : $ / 7 J / 2

"
L 2 % * 4 2 '$ + A" 3 ' + ; + ; $ 1 " % ) $ $ % 1 " 1 " * % A" 5@ 3 A 3 % 1 " % 2 5@ :-O89R 2 % 2 B + B 3 * %

A4

8+1-

2

"
1 *

"

H>4 ,? (T>4 (2 G= > ? @

>

!
+ 8+)67!1-9,? . -K@ P4 F8+)67!1-9 8+)K-69,? . R9- P4 F8+)K-69 -K@

"

'"0 A
2 R9G MG 4+ ,

" "
+ , @ + ,? @ S 4 ' K":4 ,? @ O 4 K ;@ I , I(I , E # : + Q X- ; XL