13 lines
136 B
Plaintext
13 lines
136 B
Plaintext
program Records;
|
|
|
|
uses Crt;
|
|
|
|
type TAdr=record
|
|
N,V: string;
|
|
A: byte;
|
|
end;
|
|
|
|
var Adr1, Adr2: TAdr;
|
|
|
|
begin
|