parent
afc2b3e760
commit
e5730fe8a2
@ -0,0 +1,9 @@ |
|||||||
|
let |
||||||
|
var n : Integer; |
||||||
|
var c : Char |
||||||
|
in |
||||||
|
|
||||||
|
begin |
||||||
|
c := '&'; |
||||||
|
n := n + 1 |
||||||
|
end |
@ -0,0 +1,9 @@ |
|||||||
|
let |
||||||
|
var a : Integer; |
||||||
|
var n : Integer |
||||||
|
in |
||||||
|
begin |
||||||
|
if a < 0 |
||||||
|
then n := 0 |
||||||
|
else n := 1 |
||||||
|
end |
@ -0,0 +1,10 @@ |
|||||||
|
let |
||||||
|
var a : Integer; |
||||||
|
var b : Integer; |
||||||
|
var c : Integer |
||||||
|
|
||||||
|
in |
||||||
|
begin |
||||||
|
a := 1; b := 2; c := a / b; |
||||||
|
end |
||||||
|
|
Reference in new issue