7.0


10.1.


, , . , . , , . , :

.. 4 5 5

: - ( ) ( ).

TYPE. , .

Type

Zap = record

fam: string;

m, inf, h: integer;

end;

Var

str: Zap;

zap ; fam, m, inf, h ;

str .

RECORDEND , .

.

:

< >.< >

, str : str.fam, str.m, str.inf, str.h.




- -  - -  - -