add while example

This commit is contained in:
Sandy Brownlee 2022-09-05 17:15:08 +01:00
parent 3de9d5e0cc
commit a026ec3840

11
programs/while.tri Normal file
View File

@ -0,0 +1,11 @@
let
var a : Integer
in
begin
a := 0;
while a < 5 do
begin
put('a');
a := a + 1;
end
end