mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-16 09:46:08 +02:00
9 lines
130 B
Tcl
9 lines
130 B
Tcl
#
|
|
proc foo {str1 str2 str3} {
|
|
writeln $str1
|
|
writeln $str2
|
|
writeln $str3
|
|
writeln [max $str1 $str3]
|
|
return -1
|
|
}
|