parent
64c25f1486
commit
c3c2076d9e
@ -1,15 +0,0 @@ |
|||||||
! this won't work until after some work in the practicals |
|
||||||
let |
|
||||||
var a : Integer; |
|
||||||
var b : Integer |
|
||||||
|
|
||||||
in |
|
||||||
begin |
|
||||||
a := 1; |
|
||||||
b := 2; |
|
||||||
|
|
||||||
putint(a) |
|
||||||
putint(b) |
|
||||||
putint(£a) |
|
||||||
putint(£b) |
|
||||||
end |
|
@ -0,0 +1,14 @@ |
|||||||
|
! this won't work until after some lab work |
||||||
|
|
||||||
|
let |
||||||
|
var a : Integer |
||||||
|
in |
||||||
|
begin |
||||||
|
a := 0; |
||||||
|
repeat |
||||||
|
begin |
||||||
|
put('a'); |
||||||
|
a := a + 1; |
||||||
|
end |
||||||
|
until a < 5 |
||||||
|
end |
Reference in new issue