( pelz | 2008. 06. 23., h – 22:59 )

program input_random_evenoutput;

var
  inp : integer;
  rnd : integer;

begin
  repeat
    write('Adj meg egy szamot 30 es 40 koezoett! ');
    readln(inp);
  until (inp >= 30) and (inp <= 40);

  randomize;
  rnd := random(11) + 40;

  if (inp mod 2) = 0 then begin
    writeln('A megadott szam paros. Nevezetesen: ', inp);
  end;
  if (rnd mod 2) = 0 then begin
    writeln('A veletlen szam paros. Nevezetesen: ', rnd);
  end;
end.