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.