fpc/tests/webtbs/tw7195.pp
Jonas Maebe e4d48432d8 - removed svn:executable
git-svn-id: trunk@5015 -
2006-10-23 22:52:04 +00:00

18 lines
219 B
ObjectPascal

{$mode delphi}
Function Test(S : single) : single;
begin
Result := sqrt(s);
end;
Function Test2(S : single) : single;
begin
Result := sqr(s);
end;
begin
writeln(Test(0.123445));
writeln(Test2(0.123445));
end.