home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
fpc
/
pasx.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-04-24
|
740b
|
25 lines
\* A sample pascal program to compile with TPAS the pascal translator *\
Program DEMO;
var
Factor,test : Integer ;
BEGIN newline;
Write('Enter a number greater than 100:');
read(#test);
Factor := 100;
if (factor - 1) < test
then begin
newline;
Write('Factor is ',#factor);
newline;
Write('You entered ',#test);
end
else begin
newline;
Write('You entered a number less than 100');
end;
END.