Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program lol;
- type data = record
- ch:1..31;
- m:1..12;
- g:1900..1979
- end;
- type anketa = record
- name:string[255];
- pol:char;
- d_r:data
- end;
- var gruppa: array [1..25] of anketa;
- begin
- //stuff
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement