вывести на экран только четные числа сгимилированые случайным образом

1

Ответы и объяснения

2012-12-18T19:58:36+04:00

var
i,j,k:integer;
begin
randomize;

k=random(999);

if k mod 2 <> 0 then

k:=k+1;

write(k);
end.