Simtel MSDOS 1992 June/SIMTEL_0692.cdr/msdos/ada/adatu200.exe/TRITYPE.DUM

Text File | 1991-03-25 | 219b | 8 lines

-- Dummy solution for Outside Assignment 2
-- Edit to become your real solution.
separate (TRITEST)
function TRITYPE(LEN1, LEN2, LEN3 : in INTEGER) return TRIANGLE is
begin
   return NOT_A_TRIANGLE;
end TRITYPE;