-
Notifications
You must be signed in to change notification settings - Fork 6
/
example.pas
33 lines (29 loc) · 749 Bytes
/
example.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program Example;
type
{ A struct for the example }
AStruct = record
Integer_: longint; { an integer }
Character: char; { a char }
end;
T_List = array of AStruct;
{ @param N a number, used as a size }
{ @param List a list of structs }
procedure Example(N: longint; const List: T_List);
begin
{* TODO In a real life scenario, you will describe here what you want the
end user to do with this generated code *}
end;
var
N: longint; { a number, used as a size }
List: T_List; { a list of structs }
i: longint;
_: char;
begin
readln(N);
setLength(List, N);
for i := 0 to N - 1 do
begin
readln(List[i].Integer_, _, List[i].Character);
end;
Example(N, List);
end.