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