bat/tests/syntax-tests/highlighted/Pascal/test.pas
2020-10-06 07:44:38 +02:00

43 lines
3.5 KiB
ObjectPascal
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

program Hello;
uses crt;
type str = string[1];
 arr = array[1..20, 1..60] of char;
var x, y:integer;
 carr:arr;
 c:char;
Procedure start;
{comment here}
begin write (' Press enter to begin. ');
readln;
end;
Function Valid (var choice:char): boolean;
begin 
 valid:= false;
 case choice of 
 '1':valid:= true;
 '2': valid:= true;
 '3': valid:= true;
 '4': valid:= true;
 '5': valid:= true;
 '6': valid:= true;
 end;
end;
begin
 for y:=1 to 3 do
 begin
 writeln (y);
 end;
 
 repeat
 writeln(y);
 y := y + 1;
 until y > 5;
 writeln ('Hello World');
end.