-
Notifications
You must be signed in to change notification settings - Fork 0
/
file.txt
executable file
·69 lines (50 loc) · 873 Bytes
/
file.txt
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
program mine(output);
const
alpha = 5;
beta = "beta";
alpha = "alpha";
blue = "blue";
var i : integer;
j : double;
function next(k,p,d: integer; var i:integer): integer;
var
i : integer;
j : double;
ttg : integer;
begin
i := 1;
j := 2;
writeln(1);
end;
procedure proc(k,p,d: integer);
begin
writeln("world");
end;
begin
proc(1,2,3);
i := next(1,2,3, i);
i := 1;
j := (j+7)*2 - (12 + 3);
if true then
writeln("here");
else
writeln("not here");
repeat
writeln ("color is", blue);
until i > j;
writeln ("dead");
writeln ("bread");
for i := 2 to 10 do
begin
i := i + 1;
end;
for i := 20 downto 10 do i := i + 1;
case i of
0:writeln(0);
1:writeln(1);
2:writeln(2);
3:writeln(3);
4:writeln(4);
endcase;
writeln (i, j, "hwew");
end.