var a:integer;
begin
repeat
readln(a)
until (a<0) or (a mod 2=0 );
write('на сегодня хватит...');
end.
var a:integer;
begin
repeat
readln(a)
until (a<0) or (a mod 2=0 );
write('на сегодня хватит...');
end.