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