|
123456789101112131415161718192021 |
- program DoubleVar;
-
- var a: char;
-
- procedure p;
- begin
- a := 'a';
- end; { p }
-
- var b: integer;
-
- function q: integer;
- begin
- q := b;
- end; { q }
-
- begin
- p;
- b := 177;
- write('Svaret er ', q, eol)
- end.
|