Details |
Last modification |
View Log
| Rev |
Author |
Line No. |
Line |
| 505 |
kaklik |
1 |
unit MojeUnit;
|
|
|
2 |
|
|
|
3 |
interface
|
|
|
4 |
function mojefunkce (x,y: integer) : integer
|
|
|
5 |
|
|
|
6 |
implementation
|
|
|
7 |
|
|
|
8 |
function mojefunkce(x,y :integer) :integer
|
|
|
9 |
begin
|
|
|
10 |
mojefunkce := x+y;
|
|
|
11 |
end;
|
|
|
12 |
|
|
|
13 |
end.
|