Advertisement
Guest User

Untitled

a guest
Jan 17th, 2018
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.23 KB | None | 0 0
  1. program lol;
  2.    
  3. type data = record
  4.   ch:1..31;
  5.   m:1..12;
  6.   g:1900..1979
  7. end;
  8.  
  9. type anketa = record
  10.   name:string[255];
  11.   pol:char;
  12.   d_r:data
  13. end;
  14.  
  15. var gruppa: array [1..25] of anketa;
  16.    
  17. begin
  18.   //stuff
  19. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement