1 2 3 4 5 6 7 8 9
program a; function test(a:integer;b:char;c:real;):integer; begin a:=1; b:='a'; c:=3.5; test:=6; end;