1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure mywrite(xyz : string)
{
  writeln('xyz = ', xyz);
}

function add(a : integer, b : integer) : integer
{
  add := a + b;
}

program test;

var
  x : integer;

begin
  mywrite('test'); 
  x := add(32, 10);
  writeln( 'ergebnis = ', x );
end.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

void mywrite(const char* xyz)
{
  printf( "xyz = %s\n", xyz);
}

int add(int a, int b)
{
  return a+b;
}

int main()
{
  mywrite("test");
  int x = add(32, 10);
  printf( "ergebnis = %d\n", x);
}