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

2014-01-21T12:45:57+00:00
Program gt;
labe 1;
var a:integer;
begin
1:
read(a);
if(a mod 2=1)then goto 1;
end.
вводится число пока она не будет чётным