git.iko.soy/bat
on 05c1196 help sign in
bat/tests/syntax-tests/source/Pascal/test.pas
42 lines 661 B history raw
1program Hello;
2uses crt;
4type str = string[1];
5 arr = array[1..20, 1..60] of char;
7var x, y:integer;
8 carr:arr;
9 c:char;
11Procedure start;
12{comment here}
13begin write (' Press enter to begin. ');
14readln;
15end;
17Function Valid (var choice:char): boolean;
18begin
19 valid:= false;
20 case choice of
21 '1':valid:= true;
22 '2': valid:= true;
23 '3': valid:= true;
24 '4': valid:= true;
25 '5': valid:= true;
26 '6': valid:= true;
27 end;
28end;
30begin
31 for y:=1 to 3 do
32 begin
33 writeln (y);
34 end;
36 repeat
37 writeln(y);
38 y := y + 1;
39 until y > 5;
40 writeln ('Hello World');
41end.