Dear ALL,
Could you tell me how can I get num1, num2 and Output 2 for the following programme.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, ourcrt;
var
num1, num2: integer;
begin
num2:=0;
repeat
num1:=num2+1;
if (num1 mod 2=1) then
begin
writeln(num2);
end
else
begin
num1:=num1+1;
end;
num2:=num2+1;
until num2>4;
readln;
end.