OJ Board

this people are very kind...! Im really appreciating the help

Hi

Im very fresher in this kind of problem and im looking for how I could solve this problem
Please could you post what was wrong with your code?


Regards

Var
Num,I,J : Real;
Length,Maior,contador : Word;
Begin


While Not Eof(Input) Do
Begin

Readln(I,J);
Write(I:1:0,' ',J:1:0,' ');
Maior := 0;

For Contador := Trunc(J) Downto Trunc(I) Do
Begin
Length :=1;
Num := Contador;
While Num <> 1 Do
If (trunc(Num) mod 2) = 0 Then
Begin
Num := Num ...

Hello

I trying to use readkey but it always get compiler error on online-judge


Microsoft(R) Windows DOS
(C)Copyright Microsoft Corp 1990-2001.

C:\PASCAL>fpc -dONLINE_JUDGE -Sd testasso.pas
Free Pascal Compiler version 2.0.4 [2006/08/21] for i386
Copyright (c) 1993-2006 by Florian Klaempfl
Target ...